Commodor 
DA 


IMPORTANT INFO 


For clarity, some program lines show more than 80 characters (including spaces). If 
you enter more than 80 characters in a program line, you will get a SYNTAX ERROR. 
Avoid this problem by not typing in excess spaces or by removing excess spaces if the 
program line fills more than two screen lines. Each screen line is 40 characters long. 


The table on page 7 and 117 is missing a listing. It affects the backward scrolling in 
Shoot The Rapids (220), Space Maneuvers (170) and Le Mans (210). When you see 
[INST], press these keys simultaneously: SHIFT-INST/DEL. 
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ARCADE GAMES 


Shoot The RapidS ооо оон 8 
Stay on course in your kayak while traveling down a dangerous set of rapids. 


Invaders from outer space, coming fast and straight at you! Stop them before they crash into you. 


Space Maneuvers -—- ene" 13 
Fly your spacecraft through crowded space traffic. Avoid collisions to score. 


Missile Defense Ws в ааа EUR M. NN NN OA NOE NN N.N M жағама аҚ ^R a B M NR A.N жыды АУЫ 15 
Defend your cities against missile attack by серии oncoming missiles. 


Wallbangers завоевав м ым мы ЫБЫУММИМИИИЯЯИЯИИИИАЯЯИИ  И М ӨЛ 18 
Trap your opponent (the computer) by building walls on the screen that limit the computer's cursor motion. 


Rear Gunner | m m a a B GB 8B S OB G Bà 8B B GO S B 8 GB 9 ES NU B B 9 8 O во B EB B B S B B ве 9 ов о S B G S вов ов B B S B S8 B8 S в 20 
You're defending the rear of a space fighter. Be careful not to shoot other members of your squadron. 


Le Mans 88988889 9888088.58308853585988028808 8098 в гвввевеввваевевввввеввваваевавсвваввевввававвевевв 22 
Drive your race car through a twisting track. Avoid other cars, oil spills and track hazards. | 


Мооп Гапаег - s. e w 8B G OUO E GO 8 GO 9S BO 8 GO о о B 9 B HB B 8 B B B ово B O B UB о 8 DOG иво о о о о о во о о оо nB n G G G, 25 
Land your spaceship on the moon's surface by controlling thrust, speed and other factors. 


Gambler свв е ваа вв вав шаваа воа ав а еа ва ага а аааа ва ә 88а 88 ваа ааа ваа аә аваа 28 
Play the odds with the computer's one-armed bandit. 


ONIONS а ао боевик Ol 


You are at the controls of a starship simulator, practicing defense of your homeland against imperial drones. 


BerserKOlTOne аа 34 
You've gone to interview for a job as a computer-game tester but entered the Robot Room where visitors are not 
allowed. Run away if you can. 


BOARD GAMES 


Shell Game e me a B B G 9 G OB B G B G 989 B 8 B S8 B B G OB B B G G GB B B G B B B NB GS B G B O B G B G Bà 8 в DO B B OB B B 8B B DB BO ROP RG 37 
Computer version of the classic.sleight-of-hand game. 


Pirates 858080 9808890880829 в о во во оо о 88580882502 оо в ов ово во 5 ово о ово 8288592828358 82582880568 40 
Find and battle the scourge of the sea. You're the captain looking for adventure, glory and stolen gold. 


Master Code s... ....... 5 6 8 b... EROR 88 888 58 8 8 808 89 29.29 а-а. NH 9 EN WAR C € 9 2 9 9" 9 P^ N 9 ...... 44 
Computer selects a code. You crack it. 


‚А Day At Wie E ооо a Ene dao So qkunapas 46 


Bet on a dog race. Watch the race and find out if you're the winner. 


Lost Dutchman Mine 8-8. а s s... s... а-а 8599259 s. ú n s. s... s. a s.s... a за ә 50 
You're looking for the mine's treasure. Find clues while escaping from ghosts. 


Biorhythm | sau=zuaanananasasnnunnunnuanununanapununnnanasanansnnnuannauasnpnanuanuannunaosnsno 54 
Computer calculates and predicts your emotional, mental and physical levels for any date. 


Queen Of The Nile "a ru Л АТ ds АР Tc 57 
Search for Cleopatra's lost treasure, but be careful of snake pits and mummies. 


ТИП (> ee ee ee ee ee a ee a eee ee ee 60 
Go ice fishing late in the season, but watch out for what lurks under the ice. | 


Bomb Squad gs, gg yu. OS 998 88 89 8 89 о во BA ов в вов ов ооо о о во в SI S K ST воно во вововововнов 62 
Locate and diffuse a bomb hidden т a huge skyscraper. 


ШОНА ЖОККО ТГ ЛҮ Т О өн MOVE есебінен DO 


You're an island ruler beset with decisions. Will they help or hinder your reign? 


Tic-Tac-Toe suscssnsssnssnsanasuasananasacsnssssesacasassanseossscusoasueasasauae 71 
For two players. ” 


Dice О КЛ О QAO ni dU S EV арына е Ed 74 
Use computer dice to race your cars across the finish line. 


Alien .............................................................ш--жа. 77 


Your chance to visit Earth. Will you come as friend ог foe? 


EDUCATIONAL GAMES. 


Hangman ............................................................... 85 


Home-computer version of the popular word game. 


ее 87 


Visit the famous analyst for ink-blot testing. Get professional advice. 


Spatial Concepts sue sn оо во ов во во вв во в np ово о s о вов о наз воео во в ово воно 91 
A castle where objects can be placed in a variety of positions. For young children. 


Mind Réd vods ERE 48ккебейФ IM REEL ааа ОЭ 


Can you guess the number the computer has in mind? Can the computer guess the опе you have іп mind? ` 


РоӨПунаогов ынасы ете алқына аа 
Wouldn't you know it? Your computer is a poet! 


No Free ішпсһ......................................................... 101 
Cross a hazardous tide pool to reach your lunch by giving correct math answers. 


Spelling Bee "a8 80 8 80 8 BS во ES B n 8 и ива о о 8 в о вв 8808 B3 в ово 5880585880828280728285838028082508825588055823858238 104 
Watch the bumble bee spell out a scrambled word. Give the correct spelling to win. | 


Speed Reading ...........................rrrrsssssssrssssssssssssssssasa 106 


Learn computerized reading skills for rapid information intake. Gain speed as your skill level improves. 


Pre-School Counter ———————— ИЕ | 
Computer displays 1 to 10 symbols and asks “How many?" Child receives a happy or sad face for correct or 
incorrect answers. 


Keyboard Shooting Gallery „атана кааз ажа жаяа кааз пзп за с кааа-аааш........ 112 


‚ Try your hand at the computer shooting gallery. Learn the keyboard at the same time. 


Translator e 8 EE S NB B 9" B E B G UN à B B SU HB G в UU B NUN DB NUN B UN à DO RB B B NB B вв GO B B B B U NU EU B B 9 EN B B B G оо B B GO B BGB DP EU 114 
Computer has foreign words and English equivalents for user's study of foreign language. | 
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Introduction 


This book stresses one thing— computers are fun! Even though you may use your computer for 
serious applications, you should not ignore its ability to give you hours of challenging 
entertainment. Computer games add that dimension to home-computing. 


ABOUT THE 35 GAMES IN THIS BOOK E | 

Some game books give you short programs and tell you to add scoring, graphics and other 
interesting things. This book is different. It consists of 35 complete games. They have color, 
graphics, sound, instructions to players, and scoring. 

In addition to the program listing, each game has suggestions for possible programming 
variations. First enter the complete, working game. Try it as is. Then change it if you want to. 

This book doesn't explain the rudiments of BASIC programming because I assume that you 
already have reference books to do that. What the book does supply is a variety of fun game 
programs that work. 

I've divided the games into three categories: Arcade, Board and Educational. The first category 
has moving graphics, like video games that cost money to play. The second includes puzzle and 
logic games you might play on a board, such as Tic-Tac-Toe. The third category, educational games, 
includes word and number fun for children and older computer users. 

How To Use—Each game begins with a description of game rules, number of players, display, 
objective, scoring and keys to press. Don't skip this section. Read it carefully. 

. Then enter the program listing into your computer exactly as shown. The listing is a 
reproduction of actual printout of a tested, debugged, working program. When you make typing 
mistakes— and you will—the game may not work as intended. Or, it may not work at all. You'll 
have to find your mistakes and fix them. | | | 

Play the game for a while. If you like it, save it on disk or tape. Otherwise, you'll have to enter 
the game each time you want to play it. 

How To Change It — After you've become familiar with a game, consider changing or improving it. 
Use the comments to the side of the computer printout as suggestions on how you can simplify the 
game, make it more complicated, speed it up, slow it down or supply different data. Only some of 
the possibilities are shown. Have fun experimenting! 

Although this isn't a book about programming, changing the games will help you їй тоге 
about BASIC programming. If you want to learn still more, get How to Program Your Commodore 
64, BASIC for Beginners by Carl Shipman, also published by HPBooks. BASIC is a good 
programming language because it's easy to understand. Commands are in plain English, and rules 
are straightforward and uncomplicated. | 

Even if you don't know BASIC, you'll have good times with these games. If you already know 
some BASIC, all the better. This book can be a springboard to your own creative programming. 


WHAT YOU NEED TO USE THIS BOOK 

The games in this book are written specifically for the Commodore 64 computer. None of these 
games requires a lot of memory. Plenty of memory is left over for you to add your own features to 
any program in this book. 
Other Items — You also need a b&w or color monitor. I recommend that you use a disk drive or · 
cassette tape recorder to save the games. That way, you don't have to type them in each time you 
want to use them. 

Some arcade games should be played with a joystick. It's an inexpensive accessory that makes 
these games more enjoyable. | 


Introduction 


What Else? —I assume that you know how to use your computer hardware and that you're familiar 
with your computer keyboard. I also assume that you're eager to have fun with your computer and © 
to learn something about BASIC as painlessly as possible. 
| Ifyou think that typing an amazing game into your computer isn’t painless enough, there’s an 

easier way. Simply send a check or money order for $30 and your name and address to the address 
below. You'll receive a floppy disk of all 35 games in this book. 

MIKO WARE 

PO BOX 43911 

Tucson, AZ 85733 


Рог more information about programming your Commo- 
dore 64 computer in BASIC, get this book. 


Key-Combination Table 


UNDERSTANDING PROGRAM PRINTOUTS 


The program lines in this book are actual computer printouts of the working games. To 
make the lines easier for you to copy, a special notation system is used for graphics 
characters, color and cursor keys. | 

An underlined, upper-case letter means that you should hold down the SHIFT key 
while entering that letter. For example, if you see Z, shift while entering Z. A diamond will 
appear on the screen. An underlined, lower-case letter indicates that you should hold 
down the Commodore key (C) while entering that letter. 

Some keys (+, -, £, @, ж) will be underlined twice if the Commodore key (C) is to be 
held down; underlined once if the SHIFT key is to be held down. 

. When you see a word in brackets, it indicates using special control keys. For example, 
[DOWN] means press the cursor-up/down key. [DOWN 7] means press the cursor- 
up/down key seven times. The only exception is with spaces. A single space looks that 
way in the program line. If two or more spaces are required, an expression will be in |. 
brackets, such as [SPACE 2]. 

The table on the next page lists some more key combinations. For example, if the pros 
gram shows [WHT] press the CTRL and WHT keys at the same time. 


Key-Combination Table 


KEY-COMBINATION TABLE 
Listing Press Key(s) 


[UP] SHIFT-CURSOR UP/DOWN 
[DOWN] CURSOR UP/DOWN 
[LEFT] | SHIFT-CURSOR 
LEFT/RIGHT. 

[RIGHT] CURSOR LEFT/RIGHT 
[HOME] CLR HOME | 
[CLR] SHIFT-CLR HOME 
[RVSON] CTRL-RVS ON 
[RVSOFF] CTRL-RVS OFF 

_ [BLK] CTRL-BLK 
[WHT] CTRL-WHT 
[RED] CTRL-RED 
[СУ] | CTRL-CYN 

[PUR] CTRL-PUR 
[GRN] CTRL-GRN 
[BLU] . JCTRL-BLU 
[YEL] CTRL-YEL 
[ORN] G 1 
[BRN] G2 

 [LT. RED] G3 
[DARK GRAY] 
[MED. GRAY] 
[LT. GRN] 
[LT. BLU] 
[LT. GRAY] 
[F-1] 
[F-2] 
[F-3] 
[F-4] 
[F-5] 
[F-6] 
[F-7] 
[F-8] 
[POUND] 

A duplicate of this table is in the back of this book, page 


117. Cut it out and glue it to a piece of stiff cardboard. Use 
it for a ready reference when entering program lines. 


Shoot The Rapids 


Shoot The Rapids 


Journey down a winding river in your kayak. The farther you go, the more treacherous the river. | 
This fast-paced game requires concentration and skill. Use a joystick ог ` < and > keys to paddle 


safely between river banks. 


Ifyou crash, your score is displayed along with commentary. Press any key to play : again or 


RUN/STOP to quit. 


Alteration — To make the river wind more, 
increase the value of variable А in line 120 
(maximum value is 0.5) and decrease variable 
B (minimum is 0.5). 


. Programming Note— Line 220 is a special trick 
that makes the screen display scroll backward. 


REM SHOOT THE RAPIDS 

HS=0: GOTO 420 

R$="CBLUICRVSONICSPACE 71":R=18 
=0:5=1024:С0=55296:1=1924:А=.4 

„Не. | 

PRINT "CCLRI": POKE 55281,15 

FOR Х=1 ТО 23: PRINT ТАВ( К) К+ 

: NEXT | 

50=54272: FOR 2-50 ТО SD+24 

: POKE 7,0: NEXT Z: POKE 50-5,3 

: POKE S0+46,31: POKE 50+24,15 

РОКЕ 50+1,65: РОКЕ 80,227 

: POKE 50+4,129:К= RND (4) 

: IF R«8 THEN K=K+. 1 

IF К<А AND К>1 THEN R-R-1 


IF К>50 THEN KsK-.1 


IF К>В AND R<38- LEN (R$) THEN 
R-R*1 ` 

PRINT “CHOMEJCDOWNI" TABC INT ( 
RND (8)#39)) "CGRNI*" 

PRINT "“CHOMEICDOWNI" TABC В) К 
PRINT “CHOMEIJCDOWNICLEFTICINSTI" 
s POKE 218,156 

FOKE L+40, 140 

JY= PEEK (563 20):JY-15-(JY AND 15) 
: IF JYO THEN JY= PEEK (56521) 
:ЈҮ=15-(ЈҮ AND 15). 

IF PEEK (197)247 OR (JY<7 AND 
4Ү>5) THEN L-L-1 

IF PEEK (197)=44 OR (JY?7 AND 
4Ү<11) THEM L=L+1 

IF PEEK (L)<2>160 THEN 320 

POKE L, 195 :0=0+.5: IF D52HS THEN 
HS=D | 
PRINT "LHOMEJLBLKISCORE 

s" STR# С INT (D))-*" HIGH 

s" STR$ ( INT (Н9) ) +" " 

IF D/S0= INT (0/50) AND 0<201 
THEN R#= LEFTS (R$, LEN (К%)-1) 
POKE SO+4,128: GOTO 160 > 

FOKE L,90: FOR T=1 TO 2000 

s NEXT T 

PRINT “CHOMEICBLKISCORE 

s" STR$ ( INT (D))+" " 

IF D>HS THEN HS=D 


Shoot The Rapids | 


c— —À—— M — ———————————  ——W———ssm—————/———————J—————————'— 


Alteration — Change the commentary in lines 350 IF 0<=50 THEN PRINT "YOUR PADDLE . 
350 to 380. | | _ MUST HAVE BROKEN" | 
360 IF D<=200 AND 0>50 THEN PRINT 
"SNAGGED А TREE LIMB" 
370 IF D<=300 AND р>200 THEN PRINT 
| "YOU MUST BE PART OTTER" 
3go IF D>300 THEN PRINT "I SEE YOU 
HAVE DONECSPACE :31THIS BEFORE" 
390 PRINT : PRINT "HIT ANY KEY ТО 
| RESTART": РОКЕ 198,0 | | 
400 GET Qf: IF 0%-"" THEN 400 
410 GOTO 120 | 
420 PRINT "CCLRI"s PRINT "SHOOT 
| THE RAPIDS! !!": PRINT 
450 PRINT =: PRINT "YOU ARE ABOUT 
TO SHOOT THE RAPIDS INLSPACE 41 
YOUR KAYAK. " | | 
440 PRINT : PRINT "CONTROL YOUR 
PADDLES WITH YOUR JOYSTICKCSPACE 21 
OR THE < > KEYS." | . 
450 PRINT : РКІМТ "КЕЕР BETWEEN 
THE RIVER BANKS. ": PRINT 
e PRINT "HIT АМҮ KEY TO START." 
460 POKE 198,0 | 
470 GET Q$: IF Q$z"" THEN 470 
480 GOTO 120 


Night Sky 


crashes into you. 


Night Sky 


It's time to defend against invaders from space. They're coming straight at you, and getting 
bigger! Distance is determined by the size of the incoming invader. If you don't stop an invader, it 


You move your aim sight by using a joystick. The cursor keys will work too. Fire by pressing the 
joystick's fire button or the keyboard's space bar. 


iteration — Change the starting range by 
altering SR=2000 in line 140. 


Alteration — Change the range at which the 
invader becomes larger by changing 

RA< 1500 in line 170 and ВА < 1000 in line 
180. 


U 


Ч 
1 
|5 97^ 
ж” 
h < | 


N M 


aN 


100 REM NIGHT SKY 
110 DIM 0(15): GOSUB 510 


120 PRINT "CCLRI" 
150 FOR X255296 TO 54296: POKE Х,1 
s NEXT X 


140 S20: SR=2000 
150 RAsSR:R-1 
155 FOR Х=55296 TO 56295: РОКЕ Х,1: 


NE 


XT X 


160 EL=1144+ INT ( RND (8) *800) 
: AL=1524: AC=43 
170 FOR X=0 TO 4: POKE EL+X,32: NEXT X 
_ sRASRA-10: IF БА<1500 THEN R=2 
180 IF RA<1000 THEN R=3 
INT ( RND (8)#16):K=EL+D(D) 
IF К>1144 AND К<1944 THEN EL-K 


190 D= 


VILE 


"".... 


Dur 
Ашы, ы ., 
ДР 
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Night Sky 


PA ———— CÓ Ed 


200 IF RA<10 THEN 590 

210 POKE AL,32: FOR XzO TO 4 
: POKE EL+X,EC(R,X)s NEXT X 

220 K= PEEK (197):4= PEEK (653) 

2:0 PRINT "CHOMEJCWHITEICSPACE 41 
SCORE" STR£$ (S)+"CSPACE 111 
RANGE-" STR$ (RA)+"CSPACE 21" 

240 JY= PEEK (54321):FI=JY AND 16 
sJY=15-(JY AND 15) | 

250 POKE AL,32: IF AL>1104 AND (JY=1 
OR ЈҮ=5 OR JY=9 OR (К=7 AND Jz1)) 
THEN AL=AL-40 

260 IF AL<1945 AND (JY=2 OR JY=4 OR 
JY=10 OR (K=7 AND J=0)}) THEN 
AL=AL+40 

270 IF AL>1104 AND ((JY>3 AND ЈҮ<7) 
OR (K=2 AND J=1)) THEN AL=AL-1 

280 IF AL<1945 AND (JY>7 OR (K=2 AND 
J=0)) THEN AL=AL+1 

290 IF FI>0 THEN 320 | 

ЗОО POKE 65045,1: POKE 50+6,9 
4 РОКЕ 50424, 15 

310 POKE 50+1,5: POKE SQ, 235 
s РОКЕ S044, 129: РОКЕ 50+4, 128 

520 ІЕ РЕЕК (AL) <>32 AND (FIzO OR 
К=60) THEN 340 

550 РОКЕ AL,AC: GOTO 170 

340 POKE N,7:S=S+RA: IF SR»200 THEN 
SRzSR-100 | 

350 FOR LO=SO TO 50+24: POKE 10,0 
: NEXT 

360 POKE 50+5,1: POKE SO+46,15 
: POKE 80+24,15 

370 POKE 60ғ1,5: POKE 50,235 

_ s POKE 80+4,129: POKE 50+4, 128 

380 FOR Т=1 ТО 3000: NEXT Т: РОКЕ М,0 
s PRINT "CCLRI": GOTO 150 

390 POKE N-1,2: РОКЕ М,7 
s PRINT "CCLRICWHITEICDOWN 101 

| [SPACE 130**CRASH3 " 

400 FOR LO=S0 TO 650424: POKE 10,0 
e NEXT | | 

410 POKE 50+5,15: POKE 80+6,15 

| s POKE S0+24,15 

420 POKE 50+1,1: POKE 80,235 
s POKE 50+4,129: POKE S0+4,128 

430 FOR Х=1 TO 99: IF ( РЕЕК (М) AND 
15)=7 THEN РОКЕ N,2: GOTO 450 

440 POKE N,7 | 

450 РОК Т=1 TO 44: NEXT T,X | 

460 FOR Т=1 TO 2000: NEXT : РОКЕ 198,0 

470 POKE М,0: POKE N-1,6 

480 PRINT : INPUT "PLAY AGAIN"; Q$ 


МОКЕ + 
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Night Sky 


IF LEFT$ (0$,1)z"Y" THEN 120 
END 


$0-954272:N-93281: POKE N,O 

s PRINT "LCLRILUHITEI" 

PRINT "YOU ARE ABOUT TO PROTECT 
THE NIGHT SKY." 


PRINT "INTERCEPT THE ENEMY AS 


IT APPROACHES. " 
PRINT : PRINT "MOVE YOUR АТМ 
SIGHT WITH А JOYSTICK" 
PRINT "OR THE CURSOR CONTROL 
KEYS." 
PRINT "PRESS THE FIRE BUTTON 
OR SPACE BAR TOLSPACE 3JIFIRE." 
s PRINT 
PRINT "THE GAME ENDS WHEN THE 
ENEMY CRASHESCSPACE 41INTO YOU." 
: PRINT | 
PRINT "GOOD LUCK. " 


FOR Х=0 TO 7: READ D(X): NEXT X 


FOR X=1 TO 3: FOR Үзо TO 4 
s READ EC(X,Y): NEXT Y,X 


PRINT z PRINT "HIT ANY KEY TO 
START." 

GET Q$: IF Q$="" THEN 620 
RETURN 


DATA -41,-40,-29,-1,1,39,40,41 
DATA 32,109,125,32,32,32,109,42, 
125,32,124,67,81,67,126 
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Space Maneuvers 


Space Maneuvers | 


You’re the pilot of a spaceship on a secret mission, traveling through crowded space traffic. To 
score, avoid collisions with asteroids, mercenary drones and dangerous enemy spacecraft. The 
deeper you penetrate space, the more difficult your task! Use your joystick or < and > keys to 
maneuver left and right. Saving the galaxy requires 1000 points. 


100 REM SPACE MANEUVERS 

110 GOTO 350 ME | 

120 DL=.1:P=0:5=1024:L=S+900 

130 PRINT "CCLRICWHITEI" 
: РОКЕ 53280,6: POKE 55281,0: 

140 PRINT "EHOMEIEDOWN1" TABC INT © = 
RND. (7) k36) ) "ИСЗРАСЕ 3IWISPACE 31 


| ы" 
Alteration —Increase the number of drones by 150 IF Р>100 AND RND (5) >.8 THEN 
changing RND(3)» .8 to АМО(3)> .4 in line | "PRINT "“CHOMEI]CDOWN]" TAB: INT ( 


RND (7)339)) "xLPOUNDJ" 


MORE » 


Space Maneuvers 


Alteration — Increase the number of enemy 160 | 
.PRINT "CHOMEIJCDOWNI" TAB: INT ( 


spacecraft by changing RND(4)>.9 to 
RND(4)» .6 in line 160. 


Alteration — Change symbols for drones and | 170 
enemy spacecraft in lines 150 and 160, 
respectively. 180 


190 


. 200 


210 


220 


Alteration — Г the galaxy is saved, add 300 
triumphant music in lines 300 to 309. 
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IF Р>400 AND RND (4)>.9 THEN 


RND (7) #38) ) "x*#ZCPOUNDI" 

PRINT "CHOMETCDOWNICLEFTICINSTI" 

: РОКЕ 218,156 

Р=Р+1: IF P5999 THEN 300 

PRINT "LHOMEJSCORE 

s" STR$ (€ INT (Рә) +" " 

JY= PEEK (56320): JY=15-(JY AND 15) 


: IF JY=0 THEN JY= PEEK (56521) 


:JY-15-(IY AND 15) 

РОКЕ L+40,32: IF PEEK (197)=47 

OR (JY<7 AND 2Ү>3) THEN L=L-1 

IF L<1983 AND ( PEEK (197)=44 OR 
(2Ү>7 AND JYX11)) THEN L=L+1 

IF PEEK (L)<>32 THEN 250 

РОКЕ 1,65: POKE L+54272,1: 

GOTO 140 

E-54272: FOR X-E TO E+24 

: POKE X,0: NEXT X: POKE E+5,15 
: POKE E+6,15: POKE Е+24,15 

РОКЕ 53280,2: POKE Е+1,5 

: РОКЕ E,235: РОКЕ Е+4,129 

: РОВ У= ТО 250 

IF ҒеО THEN PRINT "CCLRICDOWN 71 
[SPACE 1113*:* CRASH xxx" 

: РОКЕ 53281,7:F=1: GOTO 290 

PRINT "LCLR1": POKE 53281,2:F=0 

NEXT V: POKE 52280,6 | 

: РОКЕ 53281,0: РОКЕ 844,128 

: GOTO 510 — | 

PRINT "LCLRILDOWN 101 THE GALAXY 
IS SAVED!" 

PRINT "LCLR1": PRINT "CSPACE 82 

HIT ANY KEY TO RESTART" 

PRINT : PRINT "CSPACE 131SCORE 
= "P: POKE 198,0 | 

BET 0$: IF G$-"" THEN 330 

БОТО 120. | 

PRINT "CCLRI": PRINT "PREPARE 
FOR А JOURNEY THROUGH SPACE. " 

PRINT "AVOID ASTEROIDS, DRONES, 
AND SPACESHIPS.USE JOYSTICK 
OR < >"; 

PRINT "KEYS TO MOVE LEFT 

ORRIGHT.": PRINT 

PRINT : PRINT "HIT ANY KEY TO 
RESTART": РОКЕ 198,0 

GET Q$: IF 0$="" THEN 390 

GOTO 120 | 


Missile Defense 


Missile Defense 


You must save your cities by intercepting oncoming enemy missiles. Use your joystick to move ` 
your laser sight (+). The cursor keys will work too. Fire by hitting the joystick's fire button or the 
keyboard's space bar. Each shot costs you 1 point. Each hit gets you 100 points. Destroying a missile 
does not require a direct hit. А close shot may work. 


100 
110 


120 
1:30 
140 
Alteration — Increase the number of cities to 190 
five by changing the value of CT to 5 in line 160 
150. | 1 70 


Alteration — Increase the points for destroying 
a missile to 150 by changing D in line 410 to 
D=D+150. . 


REM MISSILE DEFENSE 

GOSUB 520: B$ (3) e" LYEL1v£ fb" 

: ВФ (2) ="CDOWNICREDICRVSONIB 
CRVSOFF JcdL YEL 2v" | 

:B$ (1) -"EDOUN 21CREDIbcf" 

:B£ (O) e "ÉDOWN 3] CRYSONI]v" 
AS="(HOMEICDOWN 191" 

FOR X=0 TO 8: READ EL (X) ,EC(X) 
s NEXT 

FOR X=0 ТО ё: 
s NEXT X 

D=0; CT=4: P=80 
PRINT "LCLR1" 
POKE 55280,6: 
s FOR X*55296 
NEXT 


READ CL(X),CH(X) 


POKE 53261,14 
TO 56175: РОКЕ Х,0 


MORE > 


Missile Defense | 


180 FOR X256176 ТО 54295: POKE Х,5 
z NEXT : FOR Х=1904 TO 2023 
| z POKE Х.160: NEXT 
190 CL-1864 | | 
200 C=CL+ INT ( RND (8) #350) ` 
: IF Р>О THEN P=P-10 
210 FOR XO ТО 6: POKE C+CL СХ) ,CH(X) 
= z: NEXT X 
220 ML=C-818:MC=81:MD=39 
z IF RND (8)>.5 THEN MD=41:ML=ML—-1 
250 AL=C-70-40% RND (8)*7:&С=43 | 
240 MI=ML:P=P-1 
290 K= PEEK (197) :Ј= PEEK (453) 
z FOR T=0 TO P: NEXT T 
260 PRINT "CHOMEICWHITEICSPACE 41 
SCORE=" STR$ (D)+"CSPACE 111 
CITIES=" STR$ (CT)+"CSPACE 21" 
270 JY= PEEK (56321):FI=JY AND 16 
:JY=15-¢(JY AND 15) | 
280 POKE AL,32: IF AL>1104 AND (JY=1 
OR J¥=5 DR JY=9 ОК (К-7 AND 4-1)) 
THEN AL-AL-80 | 
290 IF AL<1745 AND (JY=2 QR JY=& OR 
|» 4Y210 OR (K-7 AND J=0)) THEN | 
AL=AL +80 | 
$00 IF 6L»51104 AND ((JY»3 AND JY«7) 
OR (K=2 AND J=1)) THEM AL=AL-2 
$10 IF AL<1825 AND (JY>7 OR (K=2 AND 
| J=0)) THEN AL=AL+2 
320 POKE ML,32: ML=ML+MD 
: IF PEEK М) <>52 AND PEEK 
(ML)< >C THEN 440 
550 POKE МІ.,МС: POKE AL,AC 
| s IF К=60 OR K=15 OR FIX»516 THEN 
390 
540 GOTO 250 | 
550 FOR Е=0 TO B: POKE AL-«EL (E) ,32 
: NEXT E: IF 0>0 THEN D-D-1 
360 IF PEEK (ML)<>32 THEN 250 
270 FOR Е=0 TO 8: POKE HML+EL CE) ,EC(E) 
s POKE ML*EL(E)454272,7: NEXT ` 
380 5=54272: РОК L=S ТО 8424 
s POKE 1,0: NEXT : POKE 645,18 
К s POKE 8546,15: POKE 8424,15 
590 POKE 541,5: РОКЕ 5,235 
z POKE 844,129: POKE 844,128 
: FOR Т=0 TO 999: NEXT Т | 
400 РОК E=0 TO 8: POKE ML+EL(E) ,32 
z POKE ML+EL (Е) +54272,0: NEXT 
410 D=D+100 
420 FOR XzO TO 6: POKE C+CL CX) ,32 
s NEXT X:V=0 | 
430 GOTO 200 


16 | | | 


440 


450 


Missile Defense 


FOR X=0 TO 3: PRINT 4%; TAB( 
C-CL)B£(X): NEXT 
5254272: FOR L=S ТП 8424 


_: POKE L,O: NEXT : POKE 845,15 


460 


: POKE 846,15: POKE 8424,15 
POKE 841,5: POKE 8,235 

: POKE 844,129: POKE 844,128 

: FOR T=0 TO 2000: NEXT T 
СТ=СТ-1: IF СТ>О THEN 160 

PRINT "CCLRICWHITEICDOWN 71 

ГЕРАСЕ 81*#*#ALL CITIES 

DESTROYED#*": PRINT 

: PRINT "SCORE="D 

| END 

DATA -41,85,-40,%6,-59,73,-1,87,0,90, 


21,67,59, 74, 40,66,41,73 
DATA о, 254, 1 254, 2 ,252,-40, 108,—39, 


52,-58,97,-37,32 | 
PRINT "CCLRICWHITE]": PRINT "SAVE 
YOUR CITY BY INTERCEPTING ON 
СЗРАСЕ 71COMING MISSILES." 
PRINT : PRINT "USE JOYSTICK 
DR CURSOR KEYS TO MOVE 
YOUR LASER SIGHT (+)" 
PRINT : PRINT "PRESS FIRE BUTTON, 
RETURN KEY OR SPACECSPACE 21ВАК 
TO FIRE." 


PRINT s PRINT "HIT ANY KEY TO 
START" 

GET Q$: IF O$="" THEN 560 

RETURN | | 


еже оф PES: 
аға в. CN 


117: 


Wallbangers 


Wallbangers 


It S you against the computer as you both try to trap each other by building electrified walls. If 
you run into the computer's wall or the screen border, you get electrocuted, and vice-versa. 
Use a joystick to move up, down, left or right. The cursor keys will work too, but the game as 


written is really too fast for them. Good luck! 


100 
110 
120 
150 
140 


150 
160 


Alteration — Change the symbols for the walls 540 
by changing 42 to 81 in line 340 and 25010 350 
160 in line 410. 


REM WALLBANGERS 


POKE 53281,0: PRINT "CCLRICWHITE1" 
PRINT "YOU WILL TRY TO BUILD | 
АМ ELECTRIFIED" 

PRINT "WALL AROUND ME. (*)" 


PRINT "I WILL TRY TO DO THE SAME 


TO YQU." 

PRINT "YOU CANNOT CROSS А WALL 
WITHOUT GETTING ZAPPED.": PRINT 
PRINT "USE JOYSTICK OR CURSOR 
KEYS TO CHANGECSPACE 4] 
DIRECTION." 
D(O)z-40:D(12z-1:D(2) =1:р (5) 40 
PRINT : PRINT "HIT АМУ KEY TQ 
START." | 

СЕТ 0%: IF Q$="" THEN 190 

PRINT "CCLRI": FOR Xs55296 TO 
56295: POKE Х,1: NEXT X 

FOR X=1024 TO 1065: POKE X,160 

s POKE Х+960,160: NEXT X 

FOR Х=1064 TO 1944 STEP 40 

: POKE X,160: POKE X+39,140 

: NEXT X 

Lz1924:Dz-40: EL=1124: Ер-4:5-54272 
:Nx100 | 

FOR X=S TO S424: POKE Х,0: NEXT 
POKE 8424,15 

POKE 5+1,19: POKE 844,29 

s POKE 845,19: POKE 5415,18 

s POKE 8424,15 

К= PEEK (197):J= PEEK (653) 

JY= PEEK (5453521) :ҒІ=ЈҮ AND 16 
sJY=15-(JY AND 15) ГЕ 

IF JYzi1 OR (К=7 AND J=1) THEN 
0=—40 

IF JYz2 QR (К=7 AND JO) THEN D=40 

IF JY=4 OR (K=2 AND J=1) THEN D=-1 
IF JY=8 OR (K=2 AND JzO) THEN D=1 
IF PEEK (L+D)<>32 THEN 450 
L=L+D: РОКЕ L,42 

IF RND (2)>. 95 THEN ED= INT € RND 
C3) +4) 

РОКЕ 5+24,0 

IF PEEK (EL+D (ED) ) «32 THEN 410 

FOR XzO TO 3: IF PEEK 


_ (EL+D(X))=32 THEN ED=X 
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Wallbangers 


NEXT X 
IF PEEK (EL+D(ED) )<>32 THEN 420 


| EL=EL+D(ED): POKE EL,250: GOTO 240 


PRINT "EHOMEJ"s TABC 17) "GOT 
МЕ!": FOR T=1 TO 2000: NEXT Т 
PRINT "ІСІК": PRINT 

s PRINT ТАВ( 15)"УОЦ GOT ME" 

s РАМТ 

GOTO 470 | | 

РОКЕ 55280,2: PRINT "ІНОМЕ1"; 
ТАВ( 13)"YOU GOT ZAPPED!" | 

: FOR Т=і TO 2000: NEXT Т 

PRINT "CCLRI": PRINT 

s PRINT ТАВ( 13)"YOU GOT ZAPPED!" 
sz PRINT : POKE 53280,6 

POKE 198,0: INPUT "PLAY AGAIN"; Q$ 
IF LEFT# (0%,1) ="ү" THEN 110 
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Rear Gunner 


Rear Gunner | 

The computer shows you the view out the tail window of a Star Fighter traveling through space. 
From this vantage point, you will see enemy ships (Y and +), and members of your own squadron 
(U, V, W and X). You want to fire at and destroy the dangerous intruders, but be careful not to 
shoot at your allies! 

Use the space bar to fire as soon as an asteroid or enemy ship appears. Your timing must be very 
good. You score 20 points if you hit an enemy. You lose 20 points if you destroy a friendly ship. You 
have two minutes to play. 


100 REM REAR GUNNER 
110 DIM T(1120:HIzO0: 50=54272 
120 PRINT "CCLRIYOU ARE ABOUT ТО 
|. ТАКЕ YOUR PLACE IN THE 
TAILGUNNER POSITION." 
130 PRINT "SHOOT DOWN THE ENEMY 
Y OR + FOR POINTS. AVOID 
SHOOTING DOWN MEMBERS" 
140 PRINT "OF YOUR OWN SIDE 
s U V И X. YOU LOSE" 
150 PRINT "POINTS FOR HITTING YOUR 
OWN FIGHTERS. " 
160 PRINT : PRINT "HIT ANY KEY TO 
START.": POKE 198,0 
170 GET Q$: IF Q£$z"" THEN 170 
180 POKE 55280,6; POKE 53281 ,0:SR=0 
190 PRINT “"ІСІК1": FOR X=55294 ТО 
26295: POKE X,1: NEXT . 
200 FOR Х=1104 TO 2023: IF RND (8)<.1 
| THEN FOKE X,46 
210 NEXT X: FOR Х-1044 TO 1591 STEP 
41: POKE X,77: NEXT 
220 FOR Xz1103 TO 1292 STEP 39 
POKE Х,78: NEXT 
FOR X=1392 TO 1415: POKE X,99 
POKE X+280,100 
EXT z FOR X=1291 TO 1691 STEP 40 
POKE X,103: POKE X+25,101 
NEXT ` 
ОК X=1984 ТО 1489 STEP -39 
POKE Х,78: NEXT ` 
FOR X=2023 TO 1716 STEP -41 
РОКЕ X,77: NEXT 
250 ҒР-1525: FOR X=0 TO 4:T(X)=X+21 
s NEXT :T(5)=43: FOR X26 TO 11 
ТХ) 232: NEXT 
260 Т1$="000000" 
270 T= INT ( RND (8)*12) 
: POKE ЕР,ТСТ) ` 


ве өз эп Ti ss as Т зе ва ce 


E | 280 REM | | 
Alteration — Change the penalty for hitting а 290 IF PEEK (1975-60 AND PEEK (ЕР)<25 
friend to 30 by changing the value of SR in line THEN SR=SR-20: GOSUB 400 


290 to SR-SR-—30. 


aum --——— ———————————)—————————————————————————————PMÉOMBMÓÀMÉMÉO ERMRÁMÉMPEDM C ALBAS O LL.L.LILAOLLIOLL.L. LLAALJ.LLULTEGAAuiwlLU,LLAN IN | | |! í DÍ).Í- Ere DG Oh r7 0.6600 ААААЕБЕНЕНБИНИНИШИИШИ 
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Rear Gunner 


^ ` . 


Alteration — To change points scored when 300 IF PEEK (1972-50 AND © PEEK. 


hitting an enemy to 35, change the value of SR (ЕР) =25 OR PEEK (ЕР) =45) THEN 


іп line 300 to SR=SR+35. GR-SR420: GOSUB 400 
| 210 PRINT "ІНОМЕ1" ТАВ( 8) "CYELISCORE 
. " SGTR£ (SRI+"CSPACE 41ТІМЕ | 
" MIDS (TI#,4,1)" 
| s" RIGHTS (TIS,2)+" " 
320 IF PEEK (197)<>60 OR PEEK (FP)232 
THEN РОКЕ S0+24,0 © | 
Alteration—To iens tie опе p for three | 330 IF ТІ>7200 THEN 340 | 
minutes, change Tl in line O | 
TI» 10800 THEN 360. x 2. BL pem TOEN 229 
360 PRINT "“CCLRICWHITEICDOWN 71 
о [SPACE 101**#*GAME OVER###" 
| s IF SROHI THEN HI=SR ` | 
370 PRINT : PRINT "SCORE="SR 
. $ PRINT "HIGH ="HI 
580 FOR X=1 TO 2000: NEXT X 
390 GOTO 160 | 
400 FOR Х-50 TO 50+25: POKE Х,0 
220% NEXT : POKE 80+14,6 | 
: POKE $0+18,14: POKE 5043,1 
410 POKE 90424,1453: POKE S0+4,240 
z POKE SO0+4,65:FR=5389 | 
s РОК T=O TO 2 ` 
420 Е@=ЕК+144:НЕ= INT (FQ/256) 
sLF=FQ—-HF #254: POKE SQO*O,LF 
s POKE SO+1,HF 
430 NEXT Т: RETURN 


21. 


Le Mans 


Le Mans 


Get your helmet and racing gloves ready! You are about to negotiate the challenging track at Le 
Mans. In this computer simulation, you use a joystick ог < and > keys to steer. Avoid other cars, 
debris and running off the road. 


100 REM LE MANS 
110 РОКЕ 52,48: РОКЕ 56,48: CLR 
120 GOTO 410 
Alteration — Make the track wider by adding | 150 R£z"EMED.GRAYJHS ЕЕ" :Е=16 
more # symbols to string variable R$ in line eW= LEN (Е): А=5 
ы 140 PRINT "LCLRI": POKE 53281,0 
s L21884 | | 
150 FOR I=1 TO 23: PRINT TAB( RRS 
s NEXT | 
160 8254272: FOR N=S TO 8724 
z POKE N,O: NEXT 
170 POKE 845,69: POKE S+6,65 
s POKE 9424,15: POKE 9+1,1 
s POKE 8,995: POKE S+4,129 
180 K= RND (9): IF K<.3 AND R»1 THEN 
RzR-1 | 
190 IF К>.7 AND R«38-W THEN R=R+1 
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Le Mans 


ФФ“ 


Programming Note—Line 210 isa special trick 
that makes the screen display scroll backward. 


Alteration — To decrease the amount of traffic, 
_ change M/500 in line 250 to M/1000. 


PRINT "CHOMEICDOWN 21" TAB( R)R$ 
PRINT "CHOMEICDOWNICLEFTICINSTI" 
: РОКЕ 218,156 

МІс INT (M/10)/10: IF MI>HS THEN 
HS=MI 


PRINT "CHOMEICWHITEIMILES 


2" STR# (MI)+"CSPACE 21":MzM*1 
IF RND (8)<M/3000 THEN PRINT " 
CHOMEICDOWN 31" TAB( R+ RND 
(9) *А+1) "СМЕР. GRAY 1%" 

IF RND (8) <М/500 THEN PRINT " 
CHOMEICDOWN 31" ТАВ( К+ RND ` 
(9) #A+1) " EMED. GRAY 1" 


ОРОКЕ L+40,35: POKE L+40+54272,12 


:JYs PEEK (56521}:4\=15-(3У AND 
13) | 

IF PEEK (197) «47 OR (JY<7 AND 
JY?) THEN LsL-1 

IF PEEK (197) «44 OR 1Ү>7 THEN 


L=L+1 
IF PEEK (L)<>35 AND PEEK (L)<>36 


THEN 310 | 
POKE 1,56: POKE L+54272,1 
: GOTO 180 | 
POKE 1,35: POKE L+54272,2 
8254272: FOR NeS ТО S424 
: POKE N,0: NEXT 
POKE 5%5,25: POKE 5+6,25 
: POKE 8424,15 
POKE 841,5: POKE 8,235 
: POKE 844,129 ` 
PRINT : PRINT "CHOMEICDOWN 21 
CWHITEICSPACE 11]**#**##*#CRASHS### 
жж t" 
PRINT : PRINT "HIGH: "Н: PRINT 
: FOR T=O TO 999: NEXT T 
s POKE 8424,0 
PRINT "LSPACE ВІНІТ ANY KEY 
TO RESTART": РОКЕ 198,0 
СЕТ Of: IF Q$="" THEN 580 
М=0: GOTO 130 
END 
PRINT "CCLRICWHITEI]": PRINT "YOU 
ARE ABOUT TO DRIVE AT LE MANS." 
: PRINT | 
PRINT "USE « TO STEER LEFT AND 
> TO STEERESPACE AJRIGHT OR 
USE JOYSTICK." 
PRINT s PRINT "AVOID OTHER CARS 
AND DEBRIS.": PRINT 
PRINT "PLEASE WAIT FOR ME TO © 
SET UP." 


MORE +» 
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Le Mans 


Programming Note— Lines 480 to 520 create a 
special set of graphic characters for this game. 


24 


450 


460 


POKE 56324, PEEK (56534) AND 254 
: POKE 1, PEEK (1) AND 251 
С=12288: FOR I-O TO 511 

POKE 1+С, PEEK (I453248) | | 
NEXT I: РОКЕ 1, PEEK (1) OR 4 
POKE 56534, PEEK (56534) OR 1 

s FOR T=1 TO 1000: NEXT 

FOR I=280 TO 512: READ J 

: POKE I+C,J: NEXT I 

HS=0: POKE 52272,( PEEK (53272) 
AND 240)412 | 

GOTO 150 | | 

DATA 255,255,255,255,255,255,255, 
255,66,0,66,195,195,66,0,66 

DATA 189,129,165,221,231,165,129, 
189,239,215,85,170,85,171,247, 
239,215 


Moon Lander 


Moon Lander 


You must try to land your ship safely on the moon. Control the amount of thrust by pressing the 
number keys. The higher the thrust, the greater the deceleration and fuel use. If you run out of fuel, - 


the engine won't work and the ship crashes. 


To land safely, you must reach zero altitude at a rate between —5 and 5 meters per second. 


100 
110 
120 


REM М00М LANDER 

GOSUB 490 

PRINT "CHOMEICYELIALTITUDE 

s" STR$ ( INT (А+. 5) ) +" ", 
"METERS" | 

PRINT "VELOCITY:" STRE ( INT 
(V+. 5) ) -F" ESPACE 21" ,"METERS/SEC" 
PRINT "FUELLSPACE 41 

c" STR$ ( INT (Е+.5))+" "ú, "Ко" 
PRINT "THRUSTLSPACE 22 

s" ЭТА С INT (T*10*.59)) 4" 
СӘРАСЕ 21" 

GET T$: IF Т%<>"" THEN T= VAL 
(T) 

IF F<=0 THEN F=0:T=0 

IF T$=" " THEN T=10 


DV=V-G+ (T#20000) / (MF) :F=F-T 
A=A+ (V+DV) /2: V-DV 


MORE + 


Moon Lander 


26 


210 PRINT Е$;: FOR X=1 TD 8 


220 
230 


240 
250 
260 
270 
280 
290 
500 
510 
520 
550 
540 


s PRINT TAB: 17) "ГӘРАСЕ 31" 

s NEXT X 

IF Т>О THEN PRINT FS"CYELI+++" 
IF T»1 THEN PRINT F#"CDOWNICREDI+ 
CYELI+CREDI+" | 

IF Т>2 THEN PRINT FS"CDOWN 21 
CREDIJ+++" 

IF T»3 THEN PRINT FS"CDOWN 31 
CREDI+++" 

IF T>4 THEN PRINT F#"CDOWN 41 
CREDI+++" 

IF Т>5 THEN PRINT F$"CDOUN 51 
CREDIJ+++" 

IF T»6 THEN PRINT FS"CDOWN 41 
CREDIJ+++" 

IF T>7 THEN PRINT FS"CDOWN 71 
CREDI+++" | 

IF А>5 THEN 120 

Vx ABS (V): ТЕ У<10 THEN 410 
РОКЕ N-1,2: РОКЕ N,7s PRINT "CCLRI 
CWHITEICDOWN 1021LSPACE 131 
««хҰСкДОНжжы" 

FOR LO=SO ТО 50-24: POKE 10,0 
: NEXT | 

POKE 50+5,15: POKE S0+6,15 

: POKE $0+24,15 

POKE 50+1,1: POKE 80,235 

s POKE 50+4, 1259: POKE 50+4,128 
FOR Х=1 TO 99: ТЕ ( РЕЕК (М) AND 
15)=7 THEN РОКЕ N,2: GOTO 380 
POKE N,7 


FOR Т=1 ТО 44: NEXT Т,Х 


FOR Tei ТО 2000: NEXT 

: POKE 198,0 

POKE М,0: POKE N-1,6 | 

PRINT "LHOMEIEDOWN 62ГЫНІТЕ1" 

IF V<=5 THEN PRINT "PERFECT 
LANDING!" 

IF У>5 AND V<=10 THEN PRINT "HARD 
LANDING" 

IF У>10 THEN PRINT "CRASH 
LANDING" 

IF У>15 THEN PRINT "NO 
SURVIVORS!" 

PRINT : PRINT : PRINT 

: INPUT "PLAY AGAIN"; Q$ 

IF LEFT$ (Q$,1)="Y" THEN 110 

END 

50=54272: N=53281 | 
POKE N,O: PRINT "ІСІКІГИНІТЕІ" 

PRINT TAB( 15)"LRVSONJMDON LANDER 
CRVSOFF1": PRINT : PRINT 


Moon Lander 


Alteration — Try changing the values for the 
following variables in line 720: А is starting 
altitude; M is mass of spaceship without fuel; F 
is amount of fuel; G is gravity, which affects 
the rate of fall. 


690 


700 
710 


720 


730 


PRINT "TRY TO LAND YOUR SHIP 


FIVE METERS FER" 
PRINT "SECOND OR LESS."s PRINT 
PRINT . "PRESS KEYS id TO SET 
THRUST. 
PRINT "PRESS SPACE BAR FOR 
MAXIMUM": PRINT "THRUST." 
PRINT : PRINT "HIT ANY KEY TO 
START." 
GET Q$: IF Q$="" THEN 570 
P$="C(HOMEICDOWN $S1":F$-P£-"LDOWN 101 
CRIGHT 171" 
PRINT "CCLRI" 
FRINT P$ ТАБ( 17) "НИЦІ " 
PRINT ТАВ( 14)" CRYVSONICPOUNDI 
CSPACE SIXLRVSOFF1" 
PRINT TAB: 14)" CRVSON] #CRVSOFF I 
ERVSON CRVSOFF 1 CRVSON] CPOUNDI 


PRINT TAB( 14)" CRYVSONICSPACE 71". 


PRINT ТАВ( 14)" LRVSONJILSPACE 31 


CRVSOFF] ІКУ5ОМ1ГЕРАСЕ 31" 


PRINT ТАВ( 14)" «*LRVSONJESPACE 51 
CRVSOFF ICPOUNDI" 
PRINT ТАВ( 14) "CRYSONICSPACE 91" 
PRINT ТАВ( 14) "CRVSONICSPACE 51 
USACSPACE 31" 
PRINT TAB( 12) "CRVSONIBCRVSOFF 1 
iulRVSONICSFACE SICRVSOFF Jui 

b" | 
PRINT TAB( 12) "ERVSONIJbERVSOFF Jiu 
[SPACE 21ІКУ6ОМ1ГРОММО1 xtRVSOFF 1 
[SPACE 2Juib" 
PRINT TAB 11) "CRVSONIBCRVSOFF J 
CSPACE 131b" 
PRINT ТАВ( 10) "cERVSONIi CRVSOFFI 
CSPACE 133 0RVSONI]i CRVSOFF 1v" 
A=20000:M=8000: F=2000:G6=10: :У=0 

$ T=O 
RETURN 


Gambler 


Gambler 


Play the one-armed bandit at the computer casino. The computer calculates payoff based on the 
amount bet— nickels, quarters or dollars. Jackpots are awarded for three of a kind. The computer 
plays until you've won $100 or lost everything. To quit early, press the RUN/STOP key. 


Alteration —Sound effects are due to lines 160, 
560 and 770. Alter the sound by changing 

N * 5 in line 560 to МЖ any number from 1 to 
10. 


Alteration — Change the appearance of the slot 
machine by altering graphics and color symbols 
in lines 210-330. 
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100 
110 
120 


REM GAMBLER 
РОКЕ 55281,1 


D#=" [HOME 1[L DOWN 51" 


:B$="[RIGHT 171":H$-B$£*"LRIGHT 111 
" 

P$=D$+"CDOWN 61" 

R¢ (1) =P$+B#: RE (2) =R$(1)+"CRIGHT 32 
"ERS (5) =5$(2)+"СЕТЕНТ 51400 

K$ (1) 2 "A": K$£(2) ="В": K$ (2) ="С" 

FOR Х=1 ТО é: READ S(X): NEXT 

FOR Х=1 ТО 6: POKE S(1)0,0: NEXT 

0=10 | 

PRINT "CCLRICSPACE A1LBLKIWELCOME 
TO THE MICROCHIP CASING!" 

: PRINT 

PRINT : PRINT 

PRINT TAB( 15)"LBLK1LRVSDN1 

[SPACE 101EtRVSOFF1" 

PRINT TAB( 13) "LBLK1(CRVSON] 
[SPACE 121tRVSO0FF1) 

PRINT TAB( 13)"CRVSON] CREDIbbbbbb 
bbbbbbEtBLK1 CRVSOFFI" 


PRINT ТАВ( 15) "ГКУ5ОМ1 CREDJbbb 


CBLKIBANDITCREDIBbbCBLKEI CRVSOFF 1 


PRINT TAB: 15) "CRVSON] LREDIbbbbbb 

bbbbbbE BLK] CRVSOFFI" 

PRINT TAB. 13) "ГКУ5ОМ1 LREDIbbbbbb 

bbbbbbLBLK31 LRVSOFF1" 

PRINT ТАВС 13)"LRVSON1 CREDIJb 
LBLUJESPACE 101LREDJIbLBLE 1 
CRVSOFF I" 

PRINT TAB. 13) "CRVSON] CREDIJb 
[ВИЛ CWHITEICSPACE 221LBLUJ 
CWHITEICSPACE 21LBLUJ LWHITEJ 
CSPACE 21CBLU] CREDIBCBLKICSPACE 31 
" | 


PRINT TAB( 15) "CRVSON] CREDIb 
CBLUICSFACE LOICREDIbCBLK] " 

PRINT ТАВ( 13) "CRVSON] CREDJbbbbbb 
bbbbbbLBLK1 " 

PRINT TAB 15) "СКУЅОМЈ CREDIbbbbbb 


 bbbbbbrBLK1 " 


PRINT TAB: 15) "CRVSON] CREDIbbbbbb 
bbbbbbLBLKJ] " 


Gambler 


У 


550 PRINT ТАВ( 12)"LRVSONJELSPACE 21 
LREDIbbbbbbbbbbbbEBLK1LSPACE 21" . 
540 PRINT TAB 11) "ГІКУЅОМІСЅРАСЕ 181" 
550 PRINT : PRINT ТАВ( 14) "ГКУ5ОМІҒ-1 
CRVSOFFI] NICKEL": PRINT 
s PRINT TAB 14) "CRVSONIF-3 
CRVSOFFI] QUARTER" 
560 PRINT : PRINT ТАВ( 14) "CRVSONIF-5 
CRVSOFF] DOLLAR" | 
570 PRINT D$;H$" CRVSON] CRVSOFFIk" 
s PRINT H#"CRVSONIKCSPACE 21" 
580 FOR X=1 TO 4: PRINT H$" LRVSONJk" 
e. NEXT X | 
390 PRINT H#"CRVSON] k" | | 
400 FOR Х=1 TO 3: PRINT R£(OX)"LRVSON3 
. CWHITE] CBLKI": NEXT X | 
410 PRINT "LHOMEJLDOWN 221LSPACE 81YQU 
| HAVE $" STR (D)" LEFT.CSPACE 21 
| Li] | 
420 РОКЕ 198,0 | | | 
430 СЕТ 0%: IF 0$="" THEN 430 
440 B-O: IF Q$z"L[f11" THEN В=.05 
450 IF Оғ-"ГҒЗ1" THEN В=.25 
460 IF G$z"[f5]" THEN В=1 
470 IF B=Q QR B»D THEN 430 
480 D=D-B | 
490 PRINT D$;H$"LSPACE 31" 
500 FOR X=1 TO 5: PRINT H#"CSPACE 31" 


: NEXT X MORE + 
| 29 


Gambler 


Alteration —Increase jackpot payoff by | 
changing 50 in line 610 to a larger number. 


30 


PRINT P£$;Hf$"LRVSGON1 k" 

РОК Х=1 TO 3: PRINT H$” CRVSONIK" 
: NEXT X l 

PRINT H$"LRVSONJKLSPACE 21" 
PRINT H$" LRVSDNJ CRVSOFF IK" 
С=О: POKE 54296,15 

N= INT С RND (4) #20) +1 

s FOR Х=1 TO 6: POKE S(X),N*5 

5 NEXT. 

IF N-20 AND RND (2)<.7 THEN С=С+1 
sT*$(C)=K#( INT ( RND (5) #5) +1) 

s PRINT В$(С):Т$(С) 

FOR Х=1 TO 6: POKE S((X),0: NEXT 
IF С<5 THEN 540 

IF Т%(12<>Т7%(2) OR Т%(12<>Т% ($) 
OR T$(3)<>T$(2) THEN 690 

D=D+B* INT ( RND (8) #50) +1 

FOR \=1 TO 7 

PRINT “CHOMEICDOWN SICSPACE 291" 
FOR Х=1 TO 6: POKE 8(Х),20: NEXT 
PRINT "CHOMEICDOWN 31ГӘРАСЕ 153 
CRVSONICRED] JACKPOT! CBLKI 
CRVSOFF I" | 

FOR Т=1 ТО 400: NEXT T 

FOR Х=1 ТО 6: POKE S(X),0 

s NEXT Х,Ү 

PRINT "LHOMEJLDOWN SICSPACE 331" 
FOR T=0 TO 999: NEXT Т 


PRINT P£$;H$"LSPACE 31" 


FOR Х=1 TO Š: PRINT H$"LSPACE 31" 
s NEXT X 

IF D>100 THEN PRINT "CCLRI THE 
“BANDIT’ IS OUT OF MONEY!" 

s GOTO 750 | 

IF D»O THEN 370 

PRINT "ІСІК1": PRINT "YOU ARE 
BROKE!" 

PRINT : PRINT : INPUT "PLAY 
AGAIN"; 0% | 

IF LEFTS (0$,1)="\У" THEN 180 

DATA 9$4272,94273,54279,54280, 

54286 , 54287 


Orion 


Orion 


This is your chance to be a warrior, defending your cities by shooting down invading drones. 
You have three missile silos. Fire your interceptor missiles at the incoming drones by pressing keys 
1, 2 or 3. Once you launch a missile, you can't launch another from that silo until the missile hits a 
drone or reaches maximum altitude. You lose when all of your buildings are destroyed. 


100 REM ОКТОМ 
110 GOSUB 470 
120 PRINT "ГСІК1": POKE 55280,0 
s POKE 53281,6: FOR Х=55296 ТО 
541746: POKE Х,15: NEXT X 
120 FOR X=561746 TO 56295: POKE Х,7 
s NEXT X | 
140 FOR Х=1904 TO 2023: РОКЕ Х,160 
z NEXT :7=.1:00=0: 9А=8: VzO 
MORE + 


ий 
(ГА 


>” 
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Orion 


Alteration — Change the number and shapes of 
buildings by changing line 150. 


190 


PRINT AS; "CBLKICSPACE 2 ITRVSONIc 
CRVSOFFJIESPACE SICRVSONI vy 
CRVSOFFICSPACE 2JiktSPACE 43 


CRVSONIkvCRVSOFF Jo[RVSON] v 


CRVSOFFICSPACE 4]dCRVSONIV 
[RVSOFF lik" 

FOR X-1 ТО 3: РОКЕ BS(X),30 

:BL (OO =ВВ (Х) :MOO =О:Е (Х)=О: NEXT 
Z=Z+. 001 

FOR X=1 ТО 3: IF M(X)=1 THEN 210 
2(Х3-1544% INT ( RND (8) 240) 

: IF RND (8)>Z THEN 250 

POKE J(X)-1,M: POKE J(X),M 

: POKE J OO *1,M: MODO S1:DOO 41 

: IF RND (9) >.5 THEN D(X)=39 

IF РЕЕК (J(X))=M AND PEEK 
(1(Х)+1)=М AND PEEK (JO -1) 5M 
THEN 230 

POKE J(X)-1,32: POKE J(X),32 


2 POKE J(X)+1,32: POKE J(X)-1,32 


580 


МХ) =0: GOTO 250 

FOKE J(X)-1,32: POKE J(X) ,32 

sz POKE JO *1,32:J (X)=J(X)+D (X) 
: IF 945%) 515905 THEN 370 

POKE J(X),M: РОКЕ J(X)+1,M 

s POKE 4(Х2-1,М 

IF F(X)=1 THEN 280 

GET F#:ñ= VAL (F$): IF А<1 OR АЗ 
THEN 280 | 

Е (А) =1 

IF PEEK (BL(X))<>30 AND 

(BL (X))<1864 THEN 390 


| POKE BL(X),32: IF F(OX 21 THEN 


BL (X) =BL GO —4O 

IF BL(X)>1304 THEN 320 

BL (X =BS OO zF (0 0 

POKE Ві (Х) „30: NEXT X 

SR=0: FOR Y=1864 TO 1902 

: IF PEEK (Y)>90 THEN SR=SR+1 
NEXT Y: PRINT "CHOMEI]CWHITEISCORE 
CSPACE 41:"DD: PRINT "BUILDINGS 
:" STR (SR)+" w" ` 

IF SR<1 THEN 430 

GOTO 170 

SD=54272: FOR 2-50 TO 50+24 

: POKE 2,0: NEXT Z: POKE S0+5,15 
s POKE S0*6,15: POKE SD+24,15 
POKE SO+1,3: POKE 50,245 


: POKE 80+4,129:М(Х)=0: GOTO 250 
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Orion 


390 80254272: РОК 2-50 TO 50+24 
: РОКЕ 2,0: NEXT Z: POKE SO+5,15 
: POKE S0+6,15: POKE 50+24,15 
400 FOKE 50+1,5: POKE 50,2355 
: POKE 90+4,129: FOR \=0 TO 8 
s POKE BL OO FEL CY) ,EC (Y) 
410 POKE 54272+BL (X) +Е CY) ,7: NEXT Y 
s FOR T=1 TO 50: NEXT T:DD=DD+SR 
420 FOR Y=0 TO 8: POKE BL(X)*EL (Y) ,52 
: FOKE 54272+Ві OO *EL CY) ,1 
: NEXT Y: GOTO 310 
450 PRINT "ELHOMELDOUWN 71LSPACE 91 
XxxxCITY DESTROVED#442": PRINT 
: PRINT ` | | | 
440 FOR Т=1 TO 2000: NEXT T 
s POKE 198,0: PRINT "CSPACE 91НІТ 
2 ANY KEY TO RESTART" 
450 GET 0%: IF Q$-"" THEN 450 
460 GOTO 120 
470 A$-"LHOMEJLDOUWN 211" 
480 FOR X=0 TO 8: READ EL (X) ,EC(CX) 
= £ NEXT | 
490 BS(1)=1913: BS (2) 21922: BS (3) 1931 
:М=90:1=30 | 
500 PRINT "CCLRI" TABC 172; "ORION" 
: PRINT z PRINT "ГОРАСЕ 210ЕРЕМО 
YOUR CITY WITH INTERCEPTORS" 
210 PRINT : PRINT "CSPACE 21PRESS 
KEYS 1—3 TO LAUNCH MISSILES." 


z PRINT 
920 PRINT "r SPACE 7 JHIT ANY KEY 
TO START" 
530 GET Q$: IF Q£$z"" THEN 550 
540 RETURN 


550 DATA -41,85,-40,566,-39,73,-1,67,0, " 
1 ар 74,40,66,41,75 
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Berserkotron 


Berserkotron 


You're applying for a job at a computer-game factory, but get lost in a room of berserk robots. 
Escaping through one of three exits is your only hope of survival. 

This is made difficult because the robots chase you. Though berserk, they aren't stupid. Lines 
210-270 give the robots the ability to track your position. However, you can use the barriers in the 
room to block a robot's progress. The game ends if one catches you. 


100 REM BERSERKOTRON 
110 BOSUB 510 
120 JY= PEEK (56321):JYx15-(JY AND 15) 
Кж PEEK (197):J= PEEK (653) :AL=L 
150 POKE L,32: IF JY=i OR JY=5 OR 
JY=9 OR (K=7 AND J=1) THEN | 
AL.=AL-40 
140 IF JY=2 OR JY=4 OR JY=10 OR (K=7 
AND JO) THEN AL=AL+40 
150 IF (JY?3 AND JY<7) OR (K=2 AND 
J=1) THEN AL-AL-1 
160 IF JY>7 ОК (K=2 AND 4-0) THEN 
AL *AL*1 
170 IF PEEK (AL)<>1460 THEN L=AL 
180 IF PEEK (L)=R THEN 300 
190 IF PEEK (L)=46 THEN 440 
200 POKE L,I:LY= INT ( (L-9) 740) 
:LX=L-S-LY#40 
210 FOR Х=1 TO 3:M=R(X): POKE М,32 
220 RYz INT ((M-58)/40):RXzM-S-RY*4O 
230 IF RX<LX AND ( PEEK (M+1)=32 OR 
PEEK (M+1)=I) THEN М=М+1 
240 IF RX>LX AND ( PEEK (M-1)=32 OR 
PEEK (М-1)=1) THEN М=М-1 | 
250 IF КҮМҮ AND ( PEEK (M-40)z32 OR 
PEEK (М-40) =1) THEN M=M-40 
260 IF RY<LY AND ( PEEK (M+40)=32 OR 
PEEK (M+40)=I) THEN М=М+40 
270 R(X)=M: POKE M,R 
280 IF M=L THEN 300 
270 NEXT Xs GOTO 120 
500 REM CAUGHT 
310 50=54272: FOR XzO TO 24 
s POKE SO+X,0: NEXT X 
520 РОКЕ 50+14,5: POKE 80418,1646 
s POKE 50+5,1: POKE S0+24,143 
$30 POKE 50+6,240: POKE 50+4,65 
340 POKE 53280, 2:F 125389? 
: FOR XzO TO 119:F=Fi+ PEEK 
(50+27) #35. 5 
550 H= INT (F/254): LzF-Hx256 
560 IF INT (X/10)/2= INT ( INT 
(X/10)/2) THEN POKE 55280,2 
s POKE 55281,2 
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Berserkotron 


550 


340 


IF INT (X/10)/2«» INT ( INT 
(X/10)/2) THEN POKE 55280,14 

: РОКЕ 55281,11 | 

FOKE 50,6: POKE 50+1,Н: NEXT X 

POKE 50+24,0 

FOR: X=1 ТО 2000: NEXT X 

PRINT "ІСІН1": PRINT s: PRINT 

PRINT TAB 12»"YOU WERE CAUGHT!" 

s PRINT : PRINT : PRINT 

GOTO 480 

REM SAFE > 

FOR X=1 TO 2000: NEXT X | 

PRINT "ІСІК1": PRINT : PRINT 

PRINT ТАВ( 14)"YOU MADE IT!" 

¢ PRINT : PRINT 

POKE 198,0: PRINT TAB( 14)"PLAY 
AGAIN"s: INPUT Q$ | 

IF LEFTS (Q$,1)z"Y" THEN 110 

END | 

PRINT "CCLRICBLK1": POKE 55281,11 
PRINT ТАВ( 1420; "LRVSGUN1 | 
BESERKOTRON"s PRINT 

PRINT "ОМ THE WAY TO INTERVIEW 
FOR A JOB AS A" 

PRINT "COMPUTER GAME TESTER, | 
YOU MADE А WRONG TURN..."s PRINT 


MORE > 


RENDUM car [wa TT m 
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Berserkotron 
PPPPPUUPUU`YU!YYYa3RIIINSTM,M S<HMs Y i il лє шз ч }ее-ееччччйчач---є<+== 


SSO PRINT "YOU HAVE JUST ENTERED 
THE ROBOT ROOM." 
560 PRINT "YOU ARE NOT WELCOME. " 
: PRINT 
570 PRINT "USE A JOYSTICK OR THE 
CURSOR KEYS TQ" 
580 FRINT "RUN THROUGH THE SIDE OR 
| BOTTOM DOORS.": PRINT | | 
590 PRINT "ENTER YOUR FIRST INITIAL. ы 
600 GET I$: IF І%-"" THEN 400 
610 IF ASC (I$)«65 OR ASC (ІЗ) >90 
THEN 600 
620 PRINT "AVOID ROBOTS (LRVSDN1R 
[RVSOFF1).":s PRINT | 
630 PRINT “YOUR ONE ADVANTAGE IS 
YOU САМ GO THROUGH" š 
640 PRINT "THE BLACK CIRCLES AND 
| THE ROBOTS CANNOT."s PRINT 
650 PRINT "HIT АМУ KEY TO START." 
660 GET 0%: IF Q¢="" THEN 440 
670 PRINT "CCLRI": PRINT "“CBLKI 
CRVSONICSPACE 371" 
680 FOR Х=1 TO 9: PRINT " CRVSONI 
| "s TABC 37)3"CRVSONI] "s NEXT X 
s PRINT " ."s TAB( 37)3"." 
690 FOR Х=1 TO 9: PRINT "Ç CRVSONI 
"s ТАВ( 57); "ERVSQN2I "s NEXT X 
700 PRINT " CRVSONICSPACE 191LRVSOFF ] 
a CRVSONICSPACE 171" 


Alteration — Change the symbols for barriers 710 S=1106: B=81:R=146: I= ASC (1$)-64 
and robots by changing the values of B and R 720 BX=199 | 


respectively in line 710. 730 РОК X=55294 ТП 56295: POKE X,0 
а ае е 96 v by s NEXT X | 
changing tne value o HL КО 740 FOR X=0 ТО ВХ: POKE S+40% INT ( 
example, BX=50 would make the game more 
difficult: ВХ--250 would make ums RND (8)*19)* INT ( RND (8)435),B 
easier. s NEXT X 

790 К(1) =1428: К(2) 1458: R32 231764 

:L=$+18 
760 РОК Х=1 TO 3: POKE R(X),Rs NEXT X 
| : POKE L,I 
770 RETURN 2 
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Shell Game 


.. In this game, the computer will place a ball under one of three boxes. Then it shuffles the boxes 
around the screen. Watch carefully because you're asked to find the box that has the ball. 


100 REM SHELL GAME 
110 GOSUB 450 | E | 
120 PRINT "CCLRI" ТАВ( 15) "ERVSON]J 
SHELL GAMECRVSOFFI" — 
130 FOR X=7 TO 9: FOR Y=1 TO 3 
: PRINT L#(X)sS#(Y): NEXT Y,X 
140 L= INT ( RND (8)*3)+1 
150 PRINT L#(L) 5; B$ 
160 PRINT “CBLKICHOME] CDOWN 2JHIT 
АМҮ KEY TO START" 
170 GET Q$: IF Q$="" THEN 170 
180 PRINT "LHOMEJELDOWN 21LSPACE 211" 
190 FOR X27 ТО 9: FOR Y=1 TO 5 
z PRINT L$£(OO;E$(OY): NEXT Y,X 


Alteration — You may want to add sound 200 FOR X=1 TO 3: FOR Y=i TO 3 
effects similar to those used in Gambler while sz PRINT L#*#(X);S#(Y): NEXT Y,X 
the boxes are being shuffled. 210 FOR X=1 TO 3:W(X)=1:2 NEXT Х:М=1 
220 FOR K=1 TO 9:С=0: IF W(K)=0 THEN 
270 | 


250 Н= INT ( RND (4) #4) +1:С=С+1 
: IF С>? THEN 290 
240 N=ACK,H): IF W(ñ(K,H))=1 THEN 230 
250 W(K)=O:W(A(K, H))=1 
260 FOR Y=1 TO $: PRINT L#(K) sE¢ CY) 


MORE » 


: NEXT Y 


Shell Game 


Alteration — Change the amount of shuffling 
the computer does by altering line 300. For 
example, IF M« 4 THEN 220 decreases 
shuffling; IF M« 15 THEN 220 increases 
shuffling. 


FOR Y=1 TO $: PRINT L#(ACK,H)) 3 
6%(Ү): NEXT Y 

IF L-K THEN (-А(К,Н) 

NEXT К:М=М+1 

IF M<? THEN 220 | 

IF W(1)=1 AND W(2)=1 AND W(3)=1 
THEN 330 

GOTO 220 

FOR Х=1 TO 3: PRINT L$((O0;"LRVSQN1 
"s БТК (X): NEXT X 

PRINT "CBLKICHOMEICDOWN 210K, 
WHICH BOX IS THE BALL UNDER?" 
СЕТ Q$: IF Q$z"" THEN 350 

Q= VAL (Q$): IF 0<1 OR 0>3 THEN 
550 


| IF Q=L THEN PRINT "YOU GOT ІТ!" 


: GOTO 390 

PRINT "SORRY, IT WAS UNDER #"L 
FOR Х=1 TO $: FOR Yz1 TO $ 

s PRINT L£OOSsES(GÓ: NEXT Y,X 

FOR Х=4 TO à: FOR Y=1 TO 5 

s PRINT (%(Х);5%(Ү): NEXT Y,X 

PRINT L$(L);B$ 

PRINT z INPUT "PLAY AGAIN"; 0% 

IF LEFT# (0$,1)z"Y" THEN 120 


. END 


POKE 55281,1: PRINT "CCLRICBLKI" 

PRINT "YOU ARE ABOUT TO PLAY 
CRVSONJSHELL GAMELRVSOFF 1. " 

PRINT "I WILL PLACE А BALL (Q) 
UNDER ONE OF" 

PRINT "THREE RED BOXES AND THEN 
SHUFFLE THE" | 

PRINT “BOXES AROUND.": PRINT 

PRINT "WATCH CAREFULLY AND THEN 
TELL ME WHICHLSPACE 21BQX THE 
BALL IS UNDER." | 

PRINT : PRINT "HIT АМҮ KEY TO 
CONTINUE. " 

GET 0%: IF Q$="" THEN 520 


.S€$(1)z"LREDIJLRVSONJIESPACE 31 


CRVSOFFI1":E¢(1)="CSPACE 31" 

5$ (2) ="C(DOWNICREDICRVSONICSPACE 31 
ГКУЗОЕРЕ 1": E$ (2) =" LDOWNIESPACE 31" 
5$ (5) =" РОММ 2] 0REDICRVSONICSPACE 
SICRVSOFFI":2:E¢¢(3)="CDOWN 21CSPACE 
51 " 

BS="CBLUICDOWNICRIGHT1Q" 
L¢(1)="CHOMEICDOWN 12] CRIGHT 121" 
L$ (2) =1$ (1) +"СКІСНТ 61" 
L$C3)zL$ (2) “"ГКТОНТ 61" 
L#(4)=L¢(1)+"CDOWN 61" 

L$ (5) =L$(2)+"CDOWN 61" 

$ (&) zL$ C3) -"LDOWN 841" 


Shell Game 


L$(7)=L¢(1)+"CUP 61" 
L$ (8) =% (2)+" [ЦР 61" 


ШФ (9) =L$(3)4+"CUP 61" 


FOR X=1 TO 9: РОК \=1 TO 4 
s READ A(X,Y): NEXT Y,X 


рата 2,4,7,1,1,5,5,В8,2,6,%, 
рата 1,4,5,4,4,2,64,85,%,53,6, 
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Pirates 


Pirates 


Batten down your hatches and head for the high seas. Can you recover the gold stolen by the 
pirate Bluebeard? You must search for five pirate ships hidden in the waters displayed on the 
screen. When you find a pirate ship, you can either fire on it or board it. In the ensuing battle you 


may lose men and cannons. 


The game ends after five minutes or after you or all five pirate ships are sunk. 


106 
110 


120 
| 130 
140 


150 


160 


170 
180 


510 


REM PIRATES 
PRINT “CCLRICWHITEI": PRINT "AHOY 
THERE MATEY. AND WHAT WOULD 

BE LE) 

INPUT "YOUR NAME NOW"; N$: PRINT 
PRINT "WELL, WELL, CAPTAIN "М" 
IT IS."s: PRINT 


PRINT "AND I'M CAPTAIN 


BLUEBEARD.": PRINT 
PRINT "I HAVE А FLEET ОҒ S 
FRIGATES HIDDEN INCSPACE 21THESE 
WATERS. CATCH ME IF 
PRINT “YOU CAN. ": PRINT 
s PRINT "YOUR SHIP IS REPRESENTED 
BY AN 'S'. 
PRINT "MY SHIPS ARE REPRESENTED 
BY A 'P'. 
PRINT "REEFS ARE REPRESENTED 
BY АМ '*'."s: PRINT 
PRINT "YOUR SHIP НАЗ А CREW 
OF 200 MEN AND 50" 
PRINT "CANNQONS.": PRINT 
: FRINT "HIT ANY KEY" 
GET Qf: IF Qfz"" THEN 210 
PRINT "CCLRI": PRINT "YOUR 
COMMAND OPTIONS ARE:": PRINT 
PRINT " N STEER NORTH" 
: PRINT " = STEER EAST" 
PRINT " S STEER SOUTH" 
: PRINT " = STEER WEST" 
PRINT " F FIRE CANNONS" — 
: PRINT " B = BOARD": PRINT 
FRINT "CANNONS WILL FIRE ON 
ALL SHIPS WITHINCSPACE :31TWQ 
SPACES." _ 
PRINT "TO BOARD A SHIP, IT MUST 
BE ONE SPACELSPFACE ЗЈАИАҮ. " 
PRINT z PRINT "YOU HAVE 5 
MINUTES" | 
FRINT : PRINT "HIT АМҮ KEY ТО 
START." | | | 
GET 0%: IF О%-"" THEN 300 
LX- INT (40% RND (8)) . | 
sLY= INT ( RND (8) #20)+3:S=1024 
sM=200: C=50: б=0: K=0 


HE UMA 
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Pirates 


320 FOR X=0 TO 4 

520 PX(X)= INT (40% ВМО (8)) 
2PY(X)= INT ( ВМО (8) +20) +5 
2M(X)=100:C(X) =20 

540 IF PX(X)=LX AND PY(X)J=LY THEN 330 

350 NEXT X: PRINT "CCLRI" 
sL=S+LX+40*LY: POKE L,19 
: FOR X=0 TO 24 

360 I= INT ( RND (4) #800) +5+120 

| s IF PEEK (1)<>32 THEN 560 

370 POKE 1,42: NEXT X 

375 FOR X=55296 TO 56295: POKE X,1: 
NEXT X 

580 TI£-"OOO000" | 

590 L=S+LX+40#LY: POKE L,19 

400 C$£-" ": GET C$ / 

410 PRINT "CHOMEIMEN:" STR$ (М) +" 
[SPACE 21CANNONS:" STR$ (С) +" 
[SPACE 21G0LD:" STR$ (G)+"CSPACE 21 
" 


420 FOR XO TO 4:D(X)- SOR 
x COPX OO -LX0^2-OPY OO ү) ^2) 
430 IF COX) «0 OR М(Х) =<0 THEN 620 
Alteration — Change the range at which pirate 440 IF DCX) >56 THEN POKE 


К a are s Ы) ШЕ D(X) іл line 440. 5+РХ (Х?О-“РҮ(Х) «40,352: GOTO 620 
or example, > 4 will increase the | | 
range to four spaces. 450 POKE 5+РХ‹(Х)+РҮ( X )*40,16 


460 IF D(OX) 52.9 THEN 560 


470 IF C$<>"F" THEN 550 MORE > 


\ 
5М 2% 


B 2- чаж 
n к=) 


... 
z 
2... © 


Pirates 


Alteration — Changing the equation for C(X) 
in line 520 changes the damage done by your 
cannons. For example, 
C(X)=C(X)—INT(RND(7) * .2* C) will do 
less damage. 


Alteration — Changing the equation for G in 
line 610 changes the amount of gold recovered 
from a captured pirate ship. For example, 
G=G+INT(RND(8)* 8000) will increase the 
average amount of gold recovered. 


Alteration—Changing Tl inline 710to IF 
TI» 10800 THEN 890 decreases the time 
limit to three minutes. 


IF M(X)<=O THEN PRINT 


FOR Т=1 ТО 3000: 


PRINT "CHOMEICDOWNIFIRING CAPTAIN 
"мұ" ! н | 

FOR СА=1 TO С/5:50=54272 

s FOR LO=SO TO 50424: POKE 10,0 

: NEXT 

POKE 50+5,9: POKE 5046,15 

: POKE 50+24,15 

POKE SO+1,5: POKE 50,255 

s POKE $0*4,129: РОК ТТ=1 TO 40 

: NEXT TT,CA ` 

C(X)=C(X)— INT ( RND (7)#.3%#C) 
sM(X)=M(X?)— INT С RND (8)*. 28C) 
IF RND (2)>.5 THEN C-C- INT € RND 
(7)#„ 3#C(X)):M=M- INT С RND 
(8)*#.1%C(X)) 

IF C(X)<=Q THEN PRINT "ІНОМЕ2 
CDOWNIPIRATE SHIP SUNKISPACE 131" 

: FOR Т=1 TO 2000: NEXT Т:К=К+1 


IF C(X)«z0 THEN PRINT "СНОМЕЈ 
CDOWNICSPACE 191" 

IF D(X)>1.5 THEN 620 

IF C$-"B" THEN PRINT "LHOME1 


CDOWNIBOARDING CAPTAIN "N$"!" 

IF C$="B" THEN M(X)MOO - INT 
(RND (7)#.5%M) 

IF М(Х? THEN MzM- INT ( RND 
(7) *. 14M (X) ) | | 
IF МХ) <=0 THEN PRINT "ІНОМЕ1 
CDOWNIPIRATE SHIP CAPTURED. 
CSPACE 151": FOR T=1 TO 4000 

s NEXT T 

"CHOME J 
CDOWNICSPACE 223":G=G+ INT ( RND 
(B) #5000) =К=К+1 

IF С‹Х)<=0 OR MOX) «x0 THEN POKE 
StPX CO +PY COO #40,32 

NEXT X: IF К=5 THEN 730 

PRINT "“CHOMEICDOWNICSPACE 311" 
IF M<=0 OR C<=0 THEN 790 

POKE L,32: IF C#="N" AND LY?2 
THEN LY-LY-1 | 

IF C$="S" AND LY<22 THEN LY=LY+1 
IF C$="E" AND LX«40 THEN LX=LX+1 
IF C$="W" AND LX>1 THEN LX=LX-1 
IF PEEK (S+LX+40#LY)=42 THEN 840 
IF TI218000 THEN 890 

GOTO 590 

PRINT "ALL PIRATES ELIMINATED" 
NEXT T 

PRINT "CCLRI" 

PRINT ТАВ( 10) "АЦ PIRATES 
ELIMINATED. " 

PRINT : PRINT "YOU GOT"G"GOLD 
PIECES": PRINT "CAPTAIN "N$"." 


hacc dim CC RCM CC CC OMA RA SEE eR нең 
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780 GOTO 940 

790 PRINT "YDU ARE SUNK" 

800 FOR Т=1 TO 3000: NEXT T 

810 PRINT "CCLRI" 

820 PRINT "YOU ARE SUNK CAPTAIN 
"N$ " Бі " 

8:0 GOTO 940 | 

840 PRINT "YOU RAN AGROUND." | 

850 FOR Т=1 TO 3000: NEXT T 

840 PRINT "CCLRI" 

870 PRINT "YOU RAN AGROUND CAPTAIN 
"Als LI] 2 s 

880 GOTO 940 

890 PRINT "TIME HAS EXPIRED" 

900 FOR Т=1 ТО 3000: NEXT T 

910 PRINT "CCLRI" 

920 PRINT TAB( 14)"TIME HAS EXPIRED." 

930 PRINT : PRINT "YOU GOT"G"GOLD 
PIECES": PRINT "CAPTAIN "N$"," 

940 POKE 198,0: PRINT 

: PRINT ТАВ( 10)"PLAY AGAIN 

(Y/N) "5 

950 INPUT Q$ 

960 IF LEFT$ (@$,1)="Y" THEN 310 
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Master Code 
This short program is based on a popular board game. The computer invites you to break a 
secret code. When the four squares appear on the screen, you enter one number of code at a time. 
The number is between 1 and 5. А number тау be repeated. 
A correct answer is indicated by an asterisk in that square. You have four tries to break the code. 
You win when you guess all four numbersi in the code. 


Alteration — Make the game more difficult by 
changing the 5 in lines 220-250 to a larger 
number. This increases the range of numbers 
that the computer can use in its code. Also, 
indicate the new range by changing the PRINT 
statement in line 170. 


Alteration — Make the game easier by 
increasing the number of tries the user gets. 
For example, changing X in line 290 to FOR 
X=1 TO 5: PRINT L$;X allows the user five 
tries. 


100 
110 
120 
130 


140 


150 


160 
170 


180 


190 


280 


REM MASTER CODE 

Mf-"LHOMEJCDOUN S1":L¢=M$+"CDOWN 31 
[RIGHT 191" | 

POKE 53281,1: PRINT "CCLRICBLKI" 
z PRINT ТАВ( 14)"MASTER CODE" 

s PRINT š PRINT 

PRINT "I AM CATHY CRYPTIC, А 
CYBERNETIC PLU 51 
GENERATING PROGRAM." 

PRINT "YOU ARE MESE TO ATTEMPT 
TO BREAK" — 

PRINT "MY CODE.": PRINT |. 
PRINT "I WILL GENERATE FQUR 
SQUARES. EACH" 

PRINT "SQUARE WILL REPRESENT ` 
ONE NUMBER: [SPACE 711,2,5,4, 

QR 5.": PRINT | 

PRINT “YOU WILL HAVE FOUR TRIES 
TO OBTAIN THELSPACE 21СОККЕСТ 
SEQUENCE. "z PRINT 

PRINT "NUMBERS MAY BE USED MORE 
THAN DNCE."s PRINT : PRINT "HIT 
АМҮ KEY TO START." 

GET 0%: IF 0%-"" THEN 200 

PRINT "CCLRI": PRINT TAB( 

14) "MASTERLSPACE 241CODE"s PRINT 
: PRINT 

Ес INT ( RND (8) #5) +1 

B= INT ( RND (8) #5) +1 

C= INT ( RND (8)*5)+1 

D= INT © RND (8)#5)41 

PRINT TAB( ОЭ? BESPECE 31BLSPACE 51 
CLSPACE 31D" 

PRINT ТАВ( 13)"LRVSONIESPACE 21 
CRVSOFFICSPACE 23++CSPACE 21 
CRVSONI+ CRVSOFFICSPACE 2J1LRVSON] 
CSPACE 210RVSOFF I" 

PRINT ТАВ( 13) "CRVSONIECSPACE 2] 
CRVSOFFICSPACE 21-ғГЕРАСЕ 21 


_ {CRVSON]+ CRVSOFFICSPACE 2]CRVSON] 


++CRVSOFF 1" 


FOR X=1 TO 4: PRINT L$;X 


IF WzE THEN 340 
PRINT L$: PRINT : PRINT TAB( 13)" 
[SPACE 2164";: INPUT W | 
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320 IF W=E THEN PRINT M$; ТАВ‹ 15)" 
CRVSON]**#CRVSOFF 1" | 
: PRINT TAB( 13) "CRVSON]#* 
CRVSOFF1" | 

330 PRINT 1%: PRINT : PRINT TAB( 13)" 

| [SPACE 71" | е 

340 IF У=В THEN 380 

350 PRINT L$: PRINT : PRINT TAB( 13)" 

|J ESPACE 21B";: INPUT V | 

340 IF V=B THEN PRINT M$; TAB( 17)" 
CRVSON1**CRVSOFF 1" 
: PRINT ТАВ( 17)"ERVSONT4* 
[RVSOFF 1" 

370 PRINT L$: PRINT : PRINT TAB( 12)" 
[SPACE 91" 

380 IF Y=C THEN 420 

390 PRINT 1%: PRINT : PRINT TAB( 12)" 

|J ESPACE 21C";: INPUT Y 

400 IF Y=C THEN PRINT M$; TAB( 21)" 
CRVSON]*#*CRVSOFF1" | 
: PRINT TAB( 21) "CRVSONI#« 
CRVSOFF1" | | 

410 PRINT 1%: PRINT : PRINT TAB( 12)" 
[SPACE 61" 

420 IF Z=D THEN 480 Е 

430 PRINT L$: PRINT : PRINT TAB( 13)" 
CSPACE 21D";: INPUT Z | 

440 IF 7=0 THEN PRINT M$; TAB( 25)" 


CRVSON]#*#CRVSOFF I" | 
s PRINT ТАВ( 25) "LRVSUN3 
 [RVSOFF1" | | 

450 PRINT L$: PRINT : PRINT TAB( 13)" 
[SPACE 61" | 

.460 IF W=E AND V=B AND Y=C AND Z=D 
THEN 520 

470 NEXT X 


480 PRINT : PRINT : PRINT TABC 6) "YOU 
DID NOT BREAK THE CODE." 
490 PRINT : PRINT TAB( 8) "ІТ WAS 
os па Е" "В" ж” "D | | 
500 PRINT z PRINT TAB: 7) "HIT ANY 
KEY TO PLAY AGAIN." 
310 GOTO 200 | 
520 PRINT : PRINT "LSPACE 41YOU | 
| BROKE THE CODE IN"X"TRIES!!!" 
350 GOTO 500 | | 


a 
— м gee 
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A Day At The Races 


A Day At The Races 


You've gone to the dogs— the dog track that is. You and the computer can choose among four 


dogs racing toward the finish line. 


The program is complete with user-friendly features such as an introduction, a racing program, 
fun graphics and easy restart. It works great as is, but it's also fun to personalize. 


100 
110 
120 
130 


140 


150 


160 


170 


Alteration — Change the names and 270 
descriptions of the dogs in lines 270-460 and 
500 to match the names and characteristics of 
family and neighborhood dogs. 
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REM А DAY АТ THE RACES 


M=500: РОКЕ 53281,11 


C$-"DPSPACE 51" 
C#(1,1)="CBLKICSPACE 32ГКУ5ОМ1уС" 
:С%(1, 2)z"NERVSUN1 CRVSOFFI1 
CRVSON ":sC$(1,2)-" CRVSONIc 
CRVSOFF J CRVSONJc" 
C#$(2,1)="CYELICSPACE 31f" 

:C$ (2, 2)="NLRVSDN1 CRVSOFF 12 
CRVSON] i":C$(2,3)-" CRVSONIc 
CRVSOFF J ~ERVSONJc" 
C#(3,1)="CBRNI ) b" 

:C$ (3, 2)=" CRVSON] LRVSOFF13 


 СКУЅОМ1 і":С+ (35,5) =" k k" 


С$ (4, 1)="FEWHITEJILSPACE SICRVSONI 

ус": 24 (4, 2) =" (+4+" 

C$ (4,5) =" CRVSONIcCRVSOFFI 
CRVSONIcCRVSOFF 1" 

PRINT "CCLRICWHITEI" 

s PRINT "WELCOME TO UNCLE LOUIS’ 

 DOGTRACK, FINEST"; 


PRINT "DOGTRACK IN ARIZONA." 


s PRINT 


PRINT "I НОРЕ YOU'RE FEELING 


Luckv TODAY." 
PRINT "I HAVE SOME OF THE FINEST 
PUPS IN THE" 

PRINT "MICROCHIP WORLD JUST 
READY TO RUN THEIR PAWS OFF." 
PRINT : PRINT "SO MAKE YOURSELF 
АТ HOME IN THE BOXLSPACE 51 

SEAT. ": PRINT 

PRINT "BY THE WAY YOU CAN CALL 
МЕ UNCLE LOUIS,” 

INPUT “WHAT IS YOUR МАМЕ"; N$ 

z PRINT 

PRINT N$", WOULD YOU LIKE А 
PROGRAM" ;: INPUT PS 

IF LEFTS (P$, 1) <>"ү" ТНЕМ 470 

PRINT "CCLRI1) CRVSONIMOLLY 
CRVSOFF I: HUSKY MIXED BREED 
CAN REALLY" _ 

PRINT “CSPACE 3JIHAUL. .. HAS WON 
16 QUT OF 24" 


А Day At The Races 


PRINT "СЅРАСЕ 31JPROFESSIONAL 
RACES. THIS 7 YEAR OLD" 
PRINT "CSPACE 31IHAS EXPERINCE, 
CONFIDENCE AND CLASS."; 0 
PRINT "ГЕРАСЕ 41A SURE BET IF 
SHE DOESN'T STOP ALONG"; 
PRINT "LSPACE 43ТНЕ TRACK FOR 
а SNACK."s PRINT "LSPACE 330005 
: 2-1": PRINT | 
PRINT "2) LRVSGONIFELICELRVSOFF 1 
THIS 8 YEAR OLD SHAGGY HAS" 
PRINT "CSPACE 31BEEN KNOWN ТО 
FALL ASLEEP IN THE" 

PRINT "LSPACE SIMIDDLE ОҒ THE 
TRACK. BUT WATCH QUT." 

PRINT "CSPACE 31THIS SLEEPER 
IS FULL OF SURPRISES." . 

s PRINT "CSPACE 27100065: 10-1" 
s PRINT . | 

PRINT "CSPACE SIHIT ANY KEY 
FOR NEXT PAGE": PRINT 

СЕТ Q$: IF Q$z"" THEN 380 
PRINT "2) CRVSONIBAD DOGCRVSOFF 1 
THIS GUY CAN RUN..." 

PRINT "LSPACE ZJUNFORTLUNATELY, 
HE HAS BEEN KNOWN TO" 

PRINT "LSPACE SITHROW A FEW 
RACES...HIS LICENSE IS" | 

PRINT "LSPACE 510М PROBATION. ' 
s PRINT "ГЕРАСЕ $10008: 4-1" 

: PRINT | | 

PRINT "4) CRVSONIBILLYCRVSOFF 1 
THIS PUP HAS SPEED, PEP, AND 


 LSPACE 21"; 


MORE + 


А Day At The Races 


Alteration — The variables in line 510 control 
the relative speeds of the dogs. The lower the 
number, the faster the dog. For example, 
changing O(1) to O(1)=.85 will make dog 
#1, Molly, faster. 
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PRINT "CSPACE 423VITALITY...IF 
НЕ RUNS IN THE RIGHT" 
PRINT "LSPACE 32DIRECTION. HE 
IS à REAL THREAT." 
PRINT "CSPACE 3l1FIRST PROFESSIONAL 
RACE.": PRINT "CSPACE 330008 
< 7:1" 
PRINT : PRINT : PRINT TABC 7)"HIT 
ANY KEY TO START": PRINT 
GET Q$: IF Q$="" THEN 480 
PRINT "CCLRI": PRINT "PLACE 
YOUR BET BY SELECTING NUMBER." 
: PRINT 
D$ (1) ="MOLLY": D$ (2) ="FELICE" 
:0$ (5) ="ВАО DOG": DS (4) ="BILLY" 
0(122,958:02) 5, 78:0 (3) 2, 94 
:0 (4) -.97 | 
FOR Х=1 TO 4: PRINT X") "рғ ОО 
: PRINT : NEXT X 
INPUT “WHICH 1006"; 8 
IF S>4 OR 5<1 THEN 490 
PRINT : PRINT "YOU HAVE $"M 
PRINT "НОМ MUCH DO YOL WANT 
TO ВЕТ";: INPUT В 
IF B»M THEN PRINT "SORRY YOU 
00 МОТ HAVE CREDIT": GOTO 550 
АФ (1) = "ГНОМЕЈГООИМ 21" 
:А% (2) =&$ (1) E"LDOUN 51" 
s AF (3) =AF(2)+"CDOWN 51" 
FOR X=1 TO 4:B%(X)="CRIGHTI" 
: NEXT X ` 
At (A) =А$ (3) +"CDOWN сл" 
T#="(DOWN 47 0RVSONICBLKICSPACE 561 
CRVSOFF 1" 
FRINT "CCLRI"s TAB 15) "CRVSONI — 
RACE TRACKCRVSOFF 1": PRINT 
FOR Х=1 ТО 22: PRINT TABC 36)" 
CREDICRVSON] ERVSOFF1"s NEXT X 
PRINT Ағ(1);Т%: PRINT A#(2)3 TS 
: PRINT A£C3»);5T$: PRINT A#(4)5T# 
FOR Х=1 TO 4: PRINT А%(Х) 
: FOR Үс1 TO 3: PRINT B£$(OO;C£f(X, 
Y): NEXT Y,X 
FOR X=1 TO 4: PRINT A#(X) 
s РОК Ү=1 ТО 5: PRINT B$(X)0;C$ 
: NEXT Y ` 
IF RND (8)5.6 THEN BS (X) -5B£ O0 +" 
CRIGHTI" 
IF RND (8) >2ХХ) THEN 
BS (X) =В$ (Х)+"ГАТОНТ?" 
PRINT А%(Х): FOR Y=1 TO 3 
: PRINT В%(Х); СҰ (Х,Ү): NEXT Y 


А Day At The Races 


IF LEN (B$(X))»30 THEN PRINT " 
CHOME JC DOWNICWHITET#"X3 D(X)" 
WINS": GOTO 720 

NEXT Xs GOTO 450 

FOR T=1 TO 3000: NEXT T 

s PRINT "ГСІК1": PRINT 

PRINT TABC 7) "#"XsDS¢(X)" WINS!" 
$ PRINT | | | 

PRINT TAB 7); М" BET ON #"S; 

р%(6): PRINT 

IF S=X THEN 770 | | 

PRINT TAB. 7)N#" LOSES $"B:M-M-B 
š IF M<=0 THEN PRINT TAB. 7)N$" 
IS ВКОКЕ!": END 

GOTO 820 | 

IF S=1 THEN B=B*2 

IF S=2 THEN B=B#10 

IF S=3 THEN B=B#4 

IF 5=4 THEN В=В%7 | 

PRINT ТАВ( 72)N$" WINS $"B:M-zM*B 

PRINT : PRINT : INPUT “PLAY 
AGAIN";P$: IF LEFT$ (Р$,1)="у" 

THEN FRINT : GOTO 470 

PRINT : PRINT : PRINT TAB: 72М%" 
LEFT THE TRACK WITH $"M 


Lost Dutchman Mine 


Lost Dutchman Mine 


Here's a game based on an Arizona folk tale about the disappearance of a Dutch prospector in 
the Superstition mountains. The game is an adventure maze with more than one screen display. 
You move through the first maze picking up gold pieces (.) and searching for clues (?) to the 
hidden treasure of the mine. But you're constantly being chased by ghosts of lost prospectors. The 


game ends if one catches you. 


When you touch the correct clue, you've found the secret treasure stash. You then find yourself 
in a new room. The treasure is in clear sight, but it's protected by the Dutchman's ghost. If you 
reach the treasure, you receive 10 times the amount of gold collected in the first maze. 
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REM LOST DUTCHMAN MINE 

GOSUB 710 

SRzO: GL 22020 

PRINT "CHOMEQJELRIGHT 141SCORE: "SR 
JY= PEEK (S56321):JYz15-(JY AND 15) 
“Ке PEEK (197):4- PEEK (653) :AL=L 
POKE L,32: IF JY=1 QR JY=S5 OR 
JY=9 OR (K=7 AND J=1) THEN 
AL=AL-40 

IF ЈҮ=2 OR JY=6 OR JY=10 QR (K=7 
AND J=0) THEN AL=AL+40 

IF (JY>3 AND JY<7) OR (K=2 AND 
Ј=1) THEN AL=AL~-1 | 

IF JY»7 ОК (K=2 AND J=0) THEN 
AL=AL+1 | 

IF PEEK (AL)<>160 THEN L=AL 

IF PEEK (L)=G THEN 380 

IF PEEK (L)z46 THEN SR=SR+1 

IF PEEK (L)=CL THEN SR=SR+100 

s PRINT "EHOMEJFIND ROOM" 

: FOR Tz1 TO 999: NEXT 

IF PEEK (L)=CL THEN PRINT "LHOME 
[SPACE 101" 

IF LRL THEN 520 

IF L=GL THEN 630 

POKE L,I:LYz INT ( (L—S) /40) 
:LX=L-S-LY*4oO 

NG=3: IF RL=2020 THEN NG=1 

FOR X=1 TO NG:M=G(X): POKE M,32 
GY= INT ((M-8)/40): GXzM-S-GY*40 
IF GX«LX AND ( PEEK (M*120«50 OR 


PEEK (М+1) =1) THEN M=M+1 


$10 
$20 
550 
540 


IF GX»LX AND ( PEEK (M-12«50 OR 
PEEK (М-1)=1) THEN MzM-1 

IF GY>LY AND ( PEEK (M-40)<50 OR 
PEEK (M-40)z1I) THEN M=M-40 

IF GY<LY AND ( PEEK (M+40)<50 OR 
PEEK (M+40)=I) THEN M=M+40 
G(X)=M:; POKE M,G: IF 6=65 THEN 
б=88: GOTO 340 

IF G=88 THEN G=65 

IF MsL THEN 380 


——— D... ..... ......................... MM 
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NEXT X: GOTO 150 
50=54272: FOR X=0 ТО 24 
s POKE SO*X,0: NEXT X 


| POKE 50+14,5: POKE 50+18,16 


s POKE 80+5,1: POKE S0424,143 

POKE S0+6,240: POKE 60+4,65 

POKE 53280,2:F1=5389 

s FOR X=0 TO 119:F=Fi+ PEEK 
(80427) #5. 5 

Hz INT (F/256):LzF-H*256 

IF INT (X/10)/2= INT ( INT 
(X/10)/2) THEN РОКЕ 53280,2 

: POKE 53281,2 

IF INT (X/10)/2«» INT ( INT 
(X/10)/2) THEN POKE 53280,14 

: POKE 53281,1 

POKE SO,L: POKE SO+1,H: NEXT X 

POKE 50+24,0 ` x 

FOR X=1 TO 2000: NEXT X 

PRINT "CCLR1": PRINT : PRINT 

PRINT "YOU LOSE'": PRINT "MY 
GHOST GOT YOU!" 

PRINT : PRINT "НА НА НА НА НА!" 

GOTO 680 

PRINT "CCLR1": PRINT "CBLKI 
CRVSONICSPACE 181" | 

FOR Х=1 ТО 12: PRINT " CRVSON] 
"s TAB: 18); "ERVSONJ "s: NEXT X 

PRINT “CBLK] CRVSONICSPACE 181" 

S=1106:B=140: BX=49 


. Lost Dutchman Mine 
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FOR Х=0 TO ВХ: POKE 5+40% INT ( 
RND (8)#12)+ INT ( RND (8)*17) ,B 
s NEXT X 

FOR Х=55296 TO 56295: POKE Х,0 

: NEXT X 

GLzS8-40* INT ( RND (8)#12)+ INT ( 


КМО (8)#17): POKE GL,164 
(6-88: РОК Х=1 ТО 3: 8Q0- 1513 


s NEXT X:L=S+8 
FOR X=1 TO 3: POKE G(X),G: NEXT X 
s POKE L,I 


RL=2020 


FOR Т=1 TO 2500: NEXT T: GOTO 130 

FOR Х=1 TO 2000: NEXT X 

PRINT "ІСІН1": PRINT : PRINT 

PRINT ТАВ( 11)"YOU FOUND THE 
GOLD!": PRINT : PRINT 

PRINT ТАВ( 11)"FINAL SCORE: "SR#10 

PRINT : PRINT 

POKE 198,0: PRINT TAB( 14)"PLAY 
AGAIN";: INPUT O$ 

IF LEFT$ (0$,1)-"Y" THEN 110 

PRINT "CCLRICBLK1": POKE 53281,1 

PRINT "CSPACE SICRVSONILOST 

DUTCHMAN MINE ADVENTURE": PRINT 

PRINT "SOME TIME AGO, IN 

ARIZONA'S SUPERSTITION"; 

PRINT "MOUNTAINS, THE GOLD OF 
THE LOST" 

PRINT "DUTCHMAN WAS LOST IN à 
CAVE.": PRINT 

PRINT "A8 YOU SEARCH THE CAVES 
BE SURE TO" 

PRINT "AVOID THE GHOSTS (X)." 

: PRINT 

PRINT "COLLECT DOTS FOR POINTS 
AND THE" = 

PRINT "MYSTERIOUS CLUES (CRVSONI? 
CRVSOFF1) TO HELP YOU ONLSPACE 51 

THE WAY": PRINT 

PRINT "USE А JOYSTICK OR THE 
CURSOR KEYS TOCSPACE 41MQVE. " 

PRINT : PRINT "ENTER YOUR FIRST 
INITIAL." 

GET I$: ТЕ I$="" THEN 820 

IF ASC (I$)4«65 OR ASC (1$) >90 

THEN 820 

PRINT "CCLRI": PRINT "LBLK1 
ERVSONIESPACE 371" 

FOR X21 ТО 19: PRINT " CRVSONI] 
"s ТАВ( 37)3"CRVSON] ": NEXT- X 

PRINT " CRVSONICSPACE 371" 


Lost Dutchman Mine 


Alteration — Change the number of barriers by 
changing the value of BX in line 880. 


Alteration — Change the number of gold pieces 
in the first maze by changing the value of C in 
line 880. | 


870 


880 
870 


700 


910 


920 


930 
940 
950 


8=1106:В=160:б6=146: CL-191 

:1= ASC (1$)-64 

ВХ=249:С=99 | | | 

FOR X=55296 TO 56295: РОКЕ Х,0 

s NEXT X | 

FOR X=0 TO ВХ: POKE S*40* INT ( 
RND (8)*19)+ INT ( RND (8) #35), B 
s NEXT X 

FOR XzO ТО С: POKE 65-40% INT € 
RND (8)#19)+ INT ¢ RND (8) #55) „42 
: NEXT X | 

FOR.XzO TO S:RLzS*40* INT € RND 
(8)*19)+ INT ( RND (8)*55) 

: POKE RL,CL: NEXT X 

G=88: G(1)21428: 6 (2} 21458: С ($) =1764 
:L=S+18 

FOR X=1 TO 3: POKE Б(Х) „6: NEXT X 
e POKE L,I | MEE | 
RETURN 
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two dates in the 20th Century. 
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e 
Biorhythm 

Some experts say that our lives are governed by three regular cycles: physical (23 days), 
emotional (28 days) and intellectual (33 days). This fun program calculates your current status on 
each cycle, telling you about yourself today, yesterday or tomorrow! | 

First, you're instructed to enter any date for which you want your biorhythm calculated. Then 
you enter your date of birth. Months are spelled out. Days and years are entered as numbers. 

The program calculates how many days you've been alive between the first date entered and 
your date of birth. Then it calculates your biorhythm and displays results for each cycle — physical, 
emotional and intellectual— in a bar chart. If you're in the first half of the cycle, you're in the up 
phase. The second half of the cycle is the down phase. Results are accurate to within one day for any 


REM BIORHYTHM 

DIM M$(12) 

FOR Х=1 TO 12: READ М$(Х): NEXT X 

PRINT "CCLRICWHITE]": PRINT "THE 
THEORY ОР BIORHYTHMS STATES 
THAT" . 

PRINT "EACH PERSON HAS THREE 
PSYCHOLOGICALCSPACE SICYCLES 
WHICH ARE RELATED TO" 

PRINT "THEIR PHYSICAL, EMOTIONAL, 
ANDESPACE 10] INTELLECTUAL 

STATES. " 

PRINT : PRINT "THESE CYCLES 
ARE SAID TO BEGIN AT BIRTH." 

PRINT "THE PHYSICAL IS 23 DAYS 
LONG. " 

PRINT "THE EMOTIONAL IS 28 DAYS 
LONG. " | 

PRINT "THE INTELLECTUAL IS 33 
DAYS LONG.": PRINT 

PRINT "THE FIRST HALF OF THE 
CYCLE IS SAID TOCSPACE 21ВЕ 
АМ LIP TIME AND THE SECOND "; 

PRINT "HALF ISLSPACE 41SAID 
TO BE А DOWN TIME." 

PRINT "THE MID POINT IS CALLED 
А CRITICAL DAY." 

FOR Т=1 TO 1500: NEXT T: PRINT 

: PRINT 

INPUT "ENTER BIRTH MONTH (SPELL 
ІТ) ";м1$ 

FOR Miei ТО 12: IF LEFT$ (Mi$,3)- 

LEFT (M£(M1),3) THEN 270 

NEXT Mi: PRINT "NO SUCH MONTH" 

: GOTO 240 

INPUT "ENTER BIRTH DAY";D1 

s IF Di>31 THEN 270 

INPUT "ENTER BIRTH YEAR"; Y1 

PRINT : PRINT 


Biorhythm 


300 INPUT "TODAY’S MONTH (SPELL 
IT)"; M$ 
310 FOR M=1 TO 12: IF LEFT$ (M$,3)= 
LEFT? (M$(M),2) THEN 330 
520 NEXT M: PRINT "NO SUCH MONTH" 
| s GOTO 300 О 
330 INPUT "TODAY'S DAY";D 
s IF р>21 THEN 330 
540 INPUT "TODAY'S YEAR"; Y 
350 Ғх(Ү-Ү1) #365. 25: H=(M-M1) #30. 42 
sJ=D-D1 © | 
| $360 X= INT (F*H*J)-2 
570 Pz((OX/23- INT (X/23)) #23 
380 E=(X/28- INT (X/28)) #28 
390 Iz(OX/33- INT (X/33)) #33 
ДОО PRINT "ГСІК1 BIORHYTHM FOR "M$""; 
D;","Ys PRINT | 
410 PRINT : PRINT "YOU HAVE BEEN 
ALIVE"X"DAYS."s PRINT 


MORE + 
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Alteration — Change the graphics character in 
the bar chart from a square to any other 
character. Do this in lines 430, 450 and 470. 


Alteration — Add a routine that interprets the | 


results of the biorhythm calculation. For 
example, a statement might say IT LOOKS 
LIKE A GREAT DAY FOR YOU 
EMOTIONALLY AND - 
INTELLECTUALLY. PHYSICALLY, 
YOU'REIN TROUBLE! 
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420 


4:30 


440 


450 


460 


470 


480 
490 


500 


510 


PRINT "CRVSONIPHYSICAL CYCLE" 

: PRINT "CSPACE 41"; 

FOR Х=0 TO P: PRINT "CRVSON] 
"s: NEXT X: PRINT "CLEFT 31" 
INT (Р+.5) x 

PRINT z PRINT : PRINT "CRVSON] 


EMOTIONAL CYCLE": PRINT "LSPACE 41 


3 
FOR X=0 TO Е: PRINT "CRVSONI 

"s: NEXT Xs PRINT "CLEFT 31" 
INT <Е+.5) | | 
PRINT s PRINT : PRINT "ІКУ50М2 
INTELLECTUAL CYCLE" 

z PRINT "CSPACE 41"; 
FOR XzO TO I: PRINT "CRVSON] 

"s: NEXT X: PRINT "CLEFT 31" 
INT (1+.5) 
PRINT : PRINT : PRINT "HIT ANY ` 
KEY FOR NEW BIORHYTHM" 
GET 0%: IF D#="" THEN 490 
GOTO 290 | 
DATA JAN,FEB,MAR,APR,MAY,JUN,JUL, 
AUG ,SEP,OCT,NOV,DEC 


Queen Of The Nile 


Queen Of The Nile 


Journey through Cleopatra's tomb in search of ancient treasure. Your time is limited to two 
minutes, and the dangers are many. But clever action will bring you rewards. 

Control your progress through the burial maze by using a joystick or the cursor keys to move 
yourself (U) to the treasure ($). By pressing the fire button or space bar, you can blast through walls 
with dynamite. But be careful because your supply of dynamite is limited. You may destroy treasure 
too! | | 
If you run into a snake pit (S) or mummy (M), the game ends. 


100 REM QUEEN OF THE NILE ` 

110 FOR Х=0 TO 8: READ L(X): NEXT X 

120 GOSUB 530 | 
Alteration — Decrease or increase the amount 130 PRINT "CCLRICWHITE]":CO=54272 
of dynamite by changing the value of D in line sUL=1894:UC=21: D=9:6=0:FL=0 
130. 22 140 FOR X=1044 TO 1103: POKE Х,160 

| s POKE X+CO,O: NEXT X ` 
150 FOR X=1104 TO 1843: IF RND (825.9 
THEN POKE X,44: POKE Х+С0,7 


. Alteration — Increase the number of walls by 160 IF RND (7) >.5 THEN FOKE X,140 
changing line 160 to IF RND(9)>.4 THEN о: POKE X4CO0,0 | 
POKE Х,1 60: POKE Х--СО,0 170 МЕХТ Х 


180 FOR XO TO 9:М= INT ( RND 
(9) «200) +1144: POKE М,13 

s POKE M*CO,1: NEXT X 
| MORE » 
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Queen Of The Nile 


Alteration — Changing the equation for Gin 
line 370 changes the value of the treasure. For 
example, G=G+INT(RND(8) ж 20) ж 
1000+20000 makes the treasure more 
valuable. 


Alteration—Changing Tl in line 380 to 
TI» 10800 allows a three-minute time limit. 
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190 


200 


210 


220 
250 
240 
250 
260 
270 


280 
290 


$00 


FOR Х=0 TO 9:S= INT ( RND 

(9) *600)+1144: POKE 5,19 

s POKE S+CO,5: NEXT X 

FOR J=1 TO 4 

TR= INT ( RND (9)*480)+1144:Р=0 
« FOR Х=0 ТО В:А= PEEK (TRtL OX) ) 
z IF A=13 QR А=19 THEN Е=1 

NEXT X: IF F=1 THEN 210 
TR(OJ)zTR: POKE TR,36 

z POKE TR+CO,7: NEXT J 
TIS="000000" 

K= PEEK (197):J= PEEK (453) 
PRINT "CHOMEITIMEs" MIDE (TI$,4, 
1)":" RIGHT? (TI#,2)"CSPACE 4] 


GOLD +" STR# (G); 


PRINT "CSPACE 2ЈрҮМАМІТЕ " STRE 
(D) +" " 

JY= PEEK (56321):FI-JY AND 16 

: JY=15-(JY AND 19): TL=UL 

s POKE UL,32 

IF Ш.>1064 AND (JY=1 ОК JY=5 OR 

JYz9 OR (K=7 AND J=1)) THEN 

UL-UL-40: GOTO 330 

IF UL<1904 AND (JY=2 OR ЛҮзе OR 
4\=10 OR (K=7 AND J-O)) THEN 
UL=UL+40: GOTO 330 

IF UL>1064 AND ((JY>3 AND JY«7) 

OR (K=2 AND J=1)) THEN UL=UL-1 
IF UL<1944 AND (JY>7 OR (K=2 AND 

Ј=0)) THEN UL=UL+1 | 

P= PEEK (UL): IF P=160 THEN UL=TL 
IF P=13 THEN E$z"MY MUMMY GOT 
YOU!!! ":FL=1s GOTO 470 

IF P=19 THEN E$z"YDU FELL INTO 
‚А SNAKE PIT!!! "sFL=i: GOTO 470 
IF Pz46 THEN G=6+100 | 

IF P=36 THEN G=G+ INT € RND 
(B)*10)*1000*10000 

IF ТІ>7200 THEN E*="TIME HAS 
EXPIRED": GOTO 470 


IF RND (8)<.2 THEN M= INT € RND 


(9) #600) +1144: IF PEEK (M)<>32 
THEN 370 

POKE M,160: POKE М+С0,0 

РОКЕ UL,UC: РОКЕ UL+CO,1 

s IF D>O AND (К=60 OR K=15 OR 
FI<>16) THEN 430 

GOTO 250 

FOR Е=0 TO 8: POKE UL-+L (E) ,32 
s NEXT E:DzD-1 

8254272: FOR L=S TO $8424 

s POKE І.,О0: NEXT : POKE 545,15 
а POKE 8*6,15: POKE 8424,15 


Queen Of The Nile 


450 POKE 841,5: POKE 65,225 
s POKE 844,129: POKE 5+4,128 
s POKE UL,UCs FOR Т=0 ТО 2000 
s NEXT T 

460 GOTO 250 

470 FOR Т=1 TO 2000: NEXT T 
s POKE 198,0: PRINT "LCLR1" 
e PRINT z PRINT ТАВ( 20- LEN 
(ES$)/2);Ef | 

480 IF FL=1 THEN 500 

490 PRINT : PRINT "LSPACE 27YOU 
COLLECTED $"G"WORTH OF GOLD!" 
e PRINT 

500 PRINT : PRINT TAB 13) "PLAY 
AGAIN "3s: INPUT Q$ 

510 IF LEFT# (Q$,1)="Y" THEN 130 

520 END TE 

530 POKE 55281,12: PRINT "“CCLRI 
ГАНІТЕ1": PRINT TAB( 12) "QUEEN 
DF THE NILE" | 

540 PRINT : PRINT "USE JOYSTICK 
OR CURSOR KEYS TO MOVE." 

550 PRINT "PRESS FIRE BUTTON OR 
SPACE BAR TO BLAST THROUGH 
WALLS. "s PRINT 

560 PRINT "YOU HAVE TWO MINUTES 
TO GATHER TREASURE." 

570 PRINT "SYMBOLS: ": PRINT 
: PRINT " CYELISCWHITE] = 

. TREASURE": PRINT 

S80 PRINT " CYELI].CWHITE] = GOLD 
PIECE": PRINT : PRINT " M = 
MUMMY": PRINT 

2920 PRINT " CGRNISCWHITE] = SNAKE 
PIT": PRINT z PRINT " CBLKI 
CRVSON] CRVSOFFICWHITE] = WALL" 
: PRINT | 

500 PRINT : FRINT "HIT АМҮ KEY ТО 
START" 

610 GET Q$: IF Q$=""" THEN 610 

&20 RETURN | 

630 DATA -41,-40,—39,—-1,0,1,39,40,41 
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Thin Ice 


Pick up fish with your mouth. 


Alteration — Change the graphics symbol in 
line 290 to create a different kind of fish. 
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Ф | | 
Thin Ice | 
Don your wool cap and grab your pole and auger because it's time to do some ice fishing on 


Ted's pond. Due to some recent warm weather, there are spots of thin ice. Avoid them because 
unusual dangers lurk below. Get as many fish as you can before time runs out or you fall in. Hint: 


200 


220 


250 
240 


230 
280 
270 


280 


290 
500 
510 
220 
550 


540 
350 
550 
570 


КЕМ ТНІМ ІСЕ | 

РОКЕ 53281,1: РОКЕ 55280,6 

z DIM F(16,20) 

PRINT "ECLRILBLKIWELCOME ТО 
TED’S POND": PRINT 

PRINT "THE POND IS FROZEN QVER 
FOR THE FIRST" | 

PRINT "TIME THIS SEASON.": PRINT 
PRINT "YOU ARE INVITED TO ICE 
FISH." 


PRINT "BE CAREFUL THOUGH, THIS 


WARM SPELL" 
PRINT "MIGHT HAVE CAUSED SOME 
SPOTS OF" 
PRINT "CRYVSONITHIN ICECRVSOFFI."™ 
: PRINT 
PRINT "SKATE BY USING THE CURSOR 
КЕҮЗ.": PRINT 
PRINT "YOU GET POINTS BY PICKING 
ИР FROZEN" | 
PRINT "FISH (à) AND BY NOT 
GETTING INJURED." 
PRINT : PRINT "HIT ANY KEY TO 
START." | 
GET 0%: IF Q£z"" THEN 230 
P$(1)="CBLKI] W"zP£(2) «"ГКЕр1<%>" 
РФ ($) = "CBLKICRVSONIVERVSOFF] 
CRVSONIc" 
E$Z"LSPACE 31" 
V$£x"LHOME1":H$z"LRIGHT1" 
PRINT "CCLRI": FOR X=1 TO 15. 

z PRINT " "j 
FOR \=1 TO 20:F(X,Y3=0 

IF RND (8)<.3 THEN PRINT "“CBLUI 
A"ssFC(X,YI=1: GOTO 310 | 
PRINT " " : 

IF RND (8) <.01 THEN F(X,Y)22 

IF RND (8)<.004 THEN F(X,Y)=3 

: PRINT “CLEFTI*"s 

IF RND (8)<.001 AND F (X,Y)=1 
THEN F (X,Y)=4 


NEXT Y: PRINT " "; NEXT X 


PRINT V$: РОК 1=1 TO 3 

z PRINT H#;P#(1): NEXT I 
Xz1: Y=2: 870: TI$="000000" 
GET Q$ 


Thin Ice 


$80 PRINT "LCHOMEJLDOWN 41CRIGHT 211 
|. TIME : "; 
590 PRINT MIDS (TI$,4,1)" 
2" RIGHT? (TI£$,2) 
400 PRINT \$: FOR I=1 TO 3 
$ PRINT Н Е: NEXT | | 
410 IF Q¢="CDOWNI" AND Х<15 ШІЛЕР 
V$=V#+Ü#: Х=Х+1 
420 IF G£f$z"LUP1" AND Х21 THEN Уфа 
ЕРТ (V$, LEN (УФ) -1) 5 Х=Х-1 
430 IF Q$z"[RIGHTI1" AND Y<20 THEN ` 
H$-Hf-0$:Y-Y-1 | 
440 IF Q$="CLEFTI" AND Y>1 THEM Н$= 
(ЕРТЕ (Hf, LEN (H$2—-10:YzY-1 
450 PRINT У%: FOR 1=1 TO 3 
: PRINT Н$;Р$ (Г): NEXT I 
460 F=F (X,Y): IF F=1 THEN 878-10 
sF (X, Y)=O A | ; 
470 IF F=2 THEM PRINT "CHOMEITHE 
ICE NEARLY BRDOKE!"sSz&S4500 
e FOR T=1 TO 1000: NEXT Т 
480 IF F-2 THEN PRINT "СНОМЕ1500 ` 
| POINT BONUS. [SPACE 51" 
| z FOR T=1 TO 1000: NEXT T 
490 IF Fz2 THEN PRINT "CHOMEICSPACE 171 
"ЕР (X,Y)=O 
500 IF Е=4 THEN 250 
910 IF F=3 THEN 550 
520 PRINT "CHOMEICDOWN SICRIGHT 221 
SCORE:" STR$ (S) 
530 IF ТІ>7200 THEN 390 
540 GOTO 370 
Alteration — Add a splashing sound when the 550 PRINT "CCLRI": POKE 55281,6 
user falls through the ice, line 550. _ в FOR Т=1 TO 999: МЕХТ T 
| 560 FOKE 55281,1: PRINT =: PRINT 
970 PRINT "YOU JUST BECAME ЗНАКК 
МЕЛ!" 
580 S=0: GOTO 470 | 
590 PRINT "CCLRI"s PRINT : PRINT 
600 PRINT "TIME НАЗ EXPIRED" | 
610 FOR Tz1 TO 999: NEXT T 
620 GOTO 670 
630 PRINT "ГСІК1": PRINT : PRINT 
640 PRINT "YOU JUST CAUGHT A SCHOOL 
OF FISH!" 
650 PRINT : PRINT "IT'S ñ MIRACLE! 
YOU WIN!" 
660 S=S#3 — 
670 PRINT : PRINT : PRINT 
680 PRINT "FINAL SCORE-"S . 
690 РОКЕ 198,0 | 
700 PRINT : INPUT "PLAY AGAIN"; Q$ 
710 IF LEFT (Q%$,1)="Y" THEN 260 
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Bomb Squad 


Bomb Squad 


You're the expert working against the clock, trying to find a ticking bomb hidden in a 
million-room tower! You have 250 seconds to find the bomb. Each move takes exactly 10 seconds. 
To help, you have a bomb-sensitive device that gives a stronger readout as you approach the bomb. 

You determine the location of a room by entering values from 0 to 99 for length, width and 
height. Your device then gives a readout that indicates how close you are to the bomb. 10,000 is the 
highest readout. А correct value for length, width or height is indicated by double asterisks in place 
of the number entered. 

If you don't find the bomb in 250 seconds, it explodes. If you do find the bomb, you have an 
additional 100 seconds to defuse it. Guess the three-number combination in the same way you 
found the room. Enter values пой 1- 10. | 


| | 100 КЕМ BOME SQUAD 
Alteration—If you make the game easier or 110 PRINT “CCLRIYOU ARE ABOUT TO 


more difficult, be sure to change the ACCEPT А DANGEROUSCSPACE 51 
instructions in lines 110 to 180. Also, to make MISSION." 


the game less violent, change its name to d | 
Treasure Hunt. Change the statements that 120 PRINT : PRINT "A BOMB IS HIDDEN 


give the user instructions and commentary. IN QNE ROOM OF ALSPACE 7JMILLION 
The new statements should discuss finding a ROOM TOWER." | | 
hidden treasure chest. When the chest is 120 PRINT : PRINT "ENTER ROOM NUMBER 
found, the user has to open the padlock. | BY LENGTH В WIDTH : AND HEIGHT 

| | (0-99)." 


140 PRINT "А LRVSONJI**EtRVSOFFJ SHOWS 
à CORRECT ENTRY."s PRINT 
150 PRINT "YQU HAVE 250 SECONDS 
TO FIND THE BOMBCSPACE 210К 
IT WILL EXFLODE.": PRINT 
160 PRINT "YOUR LOCATION BEACON 
WILL GIVE à" 
170 PRINT "STRONGER SIGNAL AS YOU 
APPROACH THE BOMB" 
180 PRINT : PRINT "WHEN YOU FIND | 
THE BOMB YOU HAVE 100LSPACE 51 
SECONDS TO DEFUSE IT." 
190 PRINT : PRINT "PRESS ANY KEY 
TO START GAME.": PRINT 
200 GET Q$: IF 0$="" THEN 200 
| 210 81z36878:822569877 
Alteration — To make the game easier, try 220 As INT ( RND (8)*100) 


decreasing the number of rooms by changing “В- INT CR * 
INT(RND(8)* 100) for variables A, B and С sC= INT ( BUD = a Er 


to INT(RND (8)* 50) in line 220. 230 PRINT "LCLR1":8-10 


240 PRINT "CHOMEJCDOWN 8JOLSFACE 211 
[SPACE 212LSPACE 213CSPACE 214 
[SPACE 2ZISCSPACE 2ZI4CSPACE 217 
CSPACE 2ISCSPACE 2I9CSPACE 2110" 

250 PRINT "“CHOMEICDOWN 9lqrr+rr+rr+rr+ 
rr+rr+rr+rr+rr+crrw"":s PRINT 


260 PRINT "qeeteeteeteeteeteeteeteetee 


teet" 
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Bomb Squad 


270 PRINT "CSPACE 101ВОМВ DETECTOR 
LHOME1" 

280 PRINT "c LCSPACE 31WL SPACE 31H 
[SPACE SITIMECSPACE 31BEACON" 
: PRINT | 

290 IF A=L THEN 330 

500 PRINT “CHOMEICDOWN 51" 
s INPUT "LENGTH"; L 

310 PRINT "ГНОМЕТГрОЫМ 61Г5РАСЕ 121" 
: IF L??? ОК L<O THEN 300 

320 PRINT "CHOMEICDOWN 31" STR$ (L)+" 


5.50 IF B=W THEN 370 | 
240 PRINT "LEHOMEJILDOUN 51" 
s INPUT "WIDTH"sW 
350 PRINT "LHOMEILDOWN 61LSPACE 121" 
s IF М>99 OR WHO THEN ЗОО 
340 PRINT "CHOMEICSPACE 41LDOWN 31" 
STRS$ (W)++" m". | | | 
370 IF С=Н THEN 410 
380 PRINT "CHOMEICDOWN 51" 
о: INPUT "HEIGHT"sH | 
390 PRINT "“CHOMEICDOWN 61Г5РАСЕ 121" 
. * IF Н>99 OR H«O THEN 300 
400 PRINT "CHOMEICSPACE SICDOWN 31" 
STR# (Н) +" " 
410 PRINT "CHOMEICSPACE 12] 0DOWN 51"5 


. MORE» 


nuts 


2. 


> 


itii, ope 


Д 
ПІ 


Р 
Jm 
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Bomb Squad 


420 PRINT "CHOMEIC DOWN 101"; TAB( J)" 


430 "— ABS (A-L)+ ABS (B-W)+ ABS 
(C-H) ) #29 

440 J= INT (BE/333.33334.5) 
: PRINT "CHOMEICDOWN 101"; TAB( 
J) UP | 

450 PRINT "CHOMEICSPACE 191CDOWN 52 
"BE 

460 PRINT "CHOMEICDOWN 31"; 

470 IF A=L THEN PRINT TAB( 1)"LRVSON1 

_ ##CRVSOFF]"; 

480 IF B=W THEN PRINT ТАВ( 5) "CRVSONI 
*4LRVSOFF 1"5 

490 IF C-H THEN PRINT TAB: 9) "CRVSONI 


**XLRVSOFF I" 

500 IF A=L AND B=W AND C=H THEN 550 
Alteration — To make the game easier, give 510 S=S+10: IF 9<260 THEN 290 
yourself пед m шс ыз D 520 GOSUB 9?OO 
changing S in line o S= : | " "a „ч 
S< 300 THEN 290. 530 pu ra Barn AT": PRINT А; 

я s 5 s 
940 END 


550 PRINT "CCLRICDOWN 91С5РАСЕ 141 
CRVSONIBOMB LOCATEDCRVSOFF I" 
560 V= INT ( RND (8) #10) +1 
sN= INT ( ВМО (8)#10)+1 
Ме INT ( ВМО (8) #10) +1 
570 FOR ТТ=1. TO 2000: NEXT 
580 PRINT "CCLRIYOU HAVE LOCATED 
THE BOMB.": PRINT 
590 PRINT "YOU MUST NOW DEFUSE IT 
| ENTER THE CORRECTCOMBINATION. " 
: PRINT 
&00 PRINT "EACH PART IS FROM 1 TO 
10. А CORRECTLSPACE 41NUMBER 
IS DICTATED BY А CRVSONJ4* 
^J ERVSUOFF1. " 
810 PRINT : PRINT "GOOD LUCK. YOU 
HAVE ONLY 100 SECONDS" 
620 FOR ТТ=1 ТО 4000: NEXT TT 
&ZO PRINT "CCLRI":S=10 
840 PRINT." LEFTCSPACE 4]RIGHTCSPACE 41 
LEFTESPACE 41TIME"s PRINT 
450 IF A=V THEN 690 
640 PRINT "CHOMEICDOWN 51" 
: INPUT "LEFT";A 
870 PRINT "CHOMEICDOWN &1ESPACE 121" 
: IF А>10 DR А<1 THEN 660 
680 PRINT "CHOMEICDOWN 31"A 
490 IF B=N THEN 730 
700 PRINT "CHOMEICDOWN 51" 
: INPUT "RIGHT";B 
710 PRINT "CHOMEICDOWN 61LSPACE 121" 
: IF B>10 OR В<1 THEN 660 
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PRINT "CHOMEICSPACE 831LDOWN 31"B 
IF C=M THEN 770 | 
PRINT "LHOMEJLDOUWUN 51" 

z INPUT "БЕРТ"; С 

PRINT "CHOMEICDOWN 61CSPACE 121" 
z IF С>10 OR С<1 THEN 740 | AM. 
PRINT "LHOMEJLSPACE 171LDOUN 31"C 
PRINT "CHOMEICSPACE 2591LDOWNM 31"S 
PRINT "CHOMEICDOWN 31"; 


IF A=V THEN PRINT ТАВ( 1)"LRVSON] 


X*LRVSOFF 1"; | 


IF B=N THEN PRINT ТАВ( 9)"LRVSUNTJ 


X*LRVSOFF 1"; 

IF C=M THEN PRINT TAB( 18)" 
LRVSONT*«CRVSOFF I" | | 
IF AV AND B=N AND C-M THEN 880 

S=S+10: IF 5<110 THEN 630 mE 

GOSUB 900 

PRINT "THE COMBINATION WAS" 

s PRINT V3" "М" “sM: PRINT 

PRINT "CONDOLENCES WILL BE SENT 
TO YOUR FAMILY." 


END 


PRINT z PRINT : PRINT "LSPACE 51 


. BOMB DEFUSED" 


END 


N-53281: POKE N-1,2: POKE 55281,7 


: PRINT "CCLRICWHITEICDOWN 101 
[SPACE 131x*««KABDOMsew*" 00 
8-54272: FÜR L=S TO 8424 

: POKE 1,0: NEXT | 

POKE 845,15: POKE S*6,15 

: POKE S424,15 ` 

POKE 6-1,5: POKE 8,235 

: POKE 844,129: POKE 844,128 
FOR Х=1 TO 99: IF ( PEEK (М) AND 
15)=7 THEN POKE N,2: GOTO 940 
РОКЕ N,7 M 

FOR Т=1 TO 44: NEXT Т,Х 

POKE N-1,14: POKE N,6 

RETURN 


Utopia 


` ө 
Utopia 
As ruler of an island nation, you're beset with important decisions. The goal is prosperity for 
you and your people. You try to increase national wealth, personal wealth, population and natural 
resources. The computer acts as your aid, giving you up-to-the-minute information and choices. 
Your reign can last up to 10 years, providing a revolution doesn't force a change. 


100 


Alterations— You can change the opening 110 
parameters by altering the values for the 
following variables inline 110: P is starting — 120 


population; M is the treasury; F is the original 


number of fish; T is number of years. 
130 


140 
150 
160 

7170 
180 
185 
190 


200 


210 


REM UTOPIA 

P5000: М=2000000: F=5000: 8210000 

:T=10:T=10 

PRINT "CCLRICWHITEJHELLO, I AM 
MODEL 81882 OF THE" 

PRINT "OMNISCIENT MICRO ANALYSIS 
RESOURCE" 

PRINT "DIVISION. YOU MAY CALL 
ME ОМАК. ": PRINT. 

PRINT "PLEASE IDENTIFY YOURSELF 
(NAME)": INPUT № | 

PRINT "CCLRIWELCOME TO UTOPIA, 
"N$".": PRINT 

PRINT "AS BENIGN RULER ОЕ UTOPIA, 
YOU MUST" 

PRINT "GUIDE YOUR CITIZENS 

THROUGH THE" 

PRINT "DECISIONS ОЕ STATE." 

: PRINT ` 

PRINT "AS YOUR CONSULTING. AID, 
I WILL PROVIDELSPACE 21YOU WITH 
DATA.": PRINT 

PRINT "YOU CAN GET A STATUS 

REPORT BY HITTINGLSPACE 525 

DURING THE GAME.": PRINT 

PRINT "UTOPIA IS AN ISLAND THAT 
IS LOCATED INCSPACE 21ТНЕ 

TROPICS.": PRINT 

PRINT "YOU WILL RULE A MAXIMUM 
OF TEN YEARS." 

PRINT "YOU MUST CONTROL THE USE 
OF NATURALCSPACE SIRESOQURCES 
WELL.": PRINT 

PRINT "GOOD LUCK YOUR HIGHNESS. " 

PRINT "MAY THE NAME OF "N$" BE 
А BLESSING ON OUR ISLAND." 

PRINT : PRINT "HIT ANY KEY TO 
CONTINUE. " 

GET D$: IF G$="" THEN 270 

GOSUB 1090 

FOR Т=10 TO О STEP -1 

INPUT "WHAT IS YOUR SALARY THIS 
YEAR" ; X 

M=M-X:R=R+X: PRINT ` 
: PRINT "YOUR PERSONAL WEALTH 
IS NOW $"R 


“ммм „ьа 
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— HH Ue M MM SSD 


520 IF R»z(( RND (9) #35) +1) #М THEN 
GOSUB 1160 

330 PRINT : PRINT "CRVSONIREPORT 
CRVSOFF] FROM MINISTER OF FISH" 
: PRINT "EMMY YELLOWTAIL." 

540 PRINT =: PRINT "YOUR HIGHNESS 
THIS IS ІТ:": PRINT | 

550 A= ІМТ ( RND (3)#3)41 

360 IF A=1 THEN PRINT "ALL IS WELL. 
THE FISH THRIVE. THERE ISLSPACE 
SIPLENTY TO FEED ALL." | 

370 IF А=1 THEN F=F+2000: P=P+5000 

|.  seMzM*10000 

580 IF A=2 THEN PRINT "WE NEED MORE 
BOATS. THEY COST #10000LSPACE 41 
EACH. " | 

390 IF A=2 THEN PRINT "HOW MANY WILL 
YOU BUY"s: GOSUB 890:Е=500%Х 

400 IF A=3 THEN PRINT "THE SEALS 
ARE EATING MOST QF THE FISH." 
s GOSUB 910 | 

410 IF Р<1000 THEN GOSUB 1140 

420 PRINT : PRINT "HIT ANY KEY TO 
CONTINUE" 

450 GET Q$: IF ©$="" THEN 430 

440 PRINT "CCLR1": GOSUB 1090 

450 PRINT : PRINT "CRVSONIREPORT 
CRVSOFF] FROM MINISTER OF FARMS" 
: PRINT "STEVEN SOIL." 


MORE » 
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460 X= INT ( RND (3)#3)+1 
470 IF Xz1 THEN GOSUB 620 
480 IF X22 THEN GOSUB 650 
490 IF X3 THEN GOSUB 700 
200 IF P=>8000 AND M=>8000000 AND 
».F5»8000 AND R»1500000 THEN 540 
810 PRINT : PRINT "HIT ANY KEY ТО 
|»... CONTINUE" 
520 GET OF: IF 6$="" THEN 520 
930 PRINT “CCLRI": NEXT Т | 
540 FOR Х=1 TO 10: PRINT "[CLR1" 
e PRINT | 
550 FOR TD=1 TO 200: NEXT TD 
560 PRINT TAB 16) "ГРУЗОМЛЕЗРАСЕ 71 
ERVSOFF 1" 
570 PRINT ТАВ( 16) "ERVSONTYOU WIN 
| . ERVSUFF 1" 
980 PRINT ТАБ( 16)"LRVSONJESPACE 71 
CRVSOFF 1" 
390 РОК TD=1 TO 200: NEXT TD,X 
600 PRINT : PRINT : PRINT №" IS 
MADE RULER FOR LIFE!" 
610 FRINT : PRINT : END 
620 PRINT "ALL CROPS ARE DOING WELL." 
:Р=Р+2000: M=M+1 00000 
630 FOR TD=1 TO 1000: NEXT TD 
640 RETURN | | 
| 650 PRINT "EXCESS SUGAR CANE HAS 
BEEN SOLD FORCSPACE 51#1000000." 
660 PRINT "ИНАТ PERCENTAGE SHOULD 
GO INTO YOUR" | 
870 INPUT "POCKET (0—-100)";X 
680 M=M+1E4-—(1E6#X/100) s:R=R+1E6#X/100— 
490 RETURN ` | 
700 FRINT "HEAVY FLOODS FROM А 
ТУРНООМ HAVE WIPEDLSPACE 210МТ 
MANY CROPS." 
710 PRINT "WHAT WILL YOU р0?": PRINT 
720 PRINT "А) REPLANT NEW CROPS." — 
5 PRINT "B) LIVE OFF STORED GRAIN" 
730 PRINT "C) BUY CROPS FROM ABROAD." 
PRINT | 
740 INPUT C$: IF C#<>"&" AND C#<>"B" 
AND С%<>"С" THEN 740 
| 750 IF С+="А" THEN М=М- INT (200000* 
RND (8)):Р=Р- INT (100% RND (8) ) 
760 IF DC$z"B" THEN PzP- INT (2000* 
RND (8)):MzM- INT ( RND (8) #10000) 
770 IF С%="С" THEN MzM- INT ( RND 
(5) *400000) | 
780 IF М<0 THEN M=0: GOSUB 1140 
790 IF P«100 THEN Р=100 
800 RETURN 
810 FOR X=1 TO 5: PRINT "LCLR1" 
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820 FOR TDs1 TO 200: NEXT TD 3 
830 PRINT : PRINT TABC 10) "DEATH 
TO "N#"!!' iÓ 

840 FOR TD=1 ТО 200: NEXT TD,X 

850 I=I+ INT ( RND (4) #Р/2) 
sR= INT (R* RND (2) = 

840 IF I>=P*.8 THEN PRINT "YOU HAVE 

BEEN OVERTHROWN. " | 
s PRINT "YOU LOSE.": STOP 

870 IF RND (8)<.7 THEN PRINT "YOU 

| HAVE MAINTAINED POWER. "s PRINT 
e RETURN 

880 PRINT "YOU HAVE RULED CRUELL Y 

AND ARE BANISHED FROM UTOPIA." 
s STOP. | 

890 INPUT X: IF XzO THEN GOSUB 1160 

900 MzM-X*x10000: RETURN 

910 PRINT : PRINT “WHAT WILL YOU 

DO?": PRINT 

920 PRINT "А) KILL THE SEALS" 

s PRINT "B) GIVE UP FISHING" 

930 PRINT "C? LET NATURE HANDLE IT" 
: PRINT "D) PANIC" 

940 PRINT : INPUT А: IF A$4»5"A" AND ° 
AS<>"B" AND Ағ<>"С" AND ñ#<>"D" 
THEN 940 | 

950 IF A$z"D" THEN 910 

960 IF AS="A" THEN I=I+ INT (1000* 
RND (2)) 

970 IF А$="С" THEN I=I+ INT (500* RND 

| (79) Ғ-«Ғ- INT ( RND (4) +5000) 

980 IF F«O THEN Е=0 

990 IF A$«»"B" THEN RETURN 

1000 PRINT : PRINT "HOW WILL YOU 

FEED THE PEOPLE?" | 
1010 PRINT : PRINT "А) LET THEM EAT 
САКЕ. ": PRINT "B) BUY THEM 
IMPORTED FOOD." | 

1020 PRINT "C) GROW MORE FOOD." 
: PRINT 

1030 INPUT BS: IF B$<>"A" AND. Be »"p" 
AND В%<>"С" THEN 1030 

1040 IF B$-"A" THEN GOSUB 11650 . 

1050 IF В$="В" THEN MzM-P*250 

1060 IF В$="С" THEN MzM-P*200 . 

:Р= INT (Р#„95) | 

1070 IF M«O THEN М=О: GOSUB 1150 

1080 RETURN m 

1090 PRINT "“CCLRICRVSONISTATUS REPORT 

ISLAND OF UTOPIACRVSOFFI" ` 

PRINT | 

1100 PRINT : PRINT "POPULATION: ",P 
s PRINT “TREASURY: ",M 
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1110 PRINT "FISH: CSPACE 51",Ғ 
s PRINT "PERSONAL WEALTH:",R 

1120 PRINT "TIME LEFT:",T"YEARS" 
s PRINT "INSURGENTS:",I 

1130 PRINT : PRINT "HIT АМҮ KEY TO 
CONTINUE." 

1140 СЕТ 0%: IF Q#="" THEN 1140 

1150 PRINT "CCLRI": RETURN 

1160 PRINT "LCLRITHE INSURGENTS LED 

| BY THE GREAT" 

1170 PRINT "CATHY COURAGEOUS HAVE 
REBELLED. " | 

1180 PRINT : PRINT "WHAT WILL YOU 

о DO0?"s PRINT 

1190 PRINT "A) GO INTO EXILE." 
s PRINT "B) TURN OVER ALL CASH" 
s PRINT "С) RESIST" 

1200 PRINT : INPUT D$: IF D$<>"A" AND 
D$«»"B" AND DS<>"C" THEN 1200 

1210 IF D$z"A" THEN 1260 

1220 IF D$-"B" THEN M=M+R: K=R: R=0 
: IF K«.1*R THEN GOSUB 810 

1250 IF D$="C" THEN GOSUB 810 

1240 1=1+ INT ( RND (8) #Р/5) 

1250 RETURN 

1260 IF А%х"А” THEN PRINT "THE SEALS 
BLOCK YOUR ESCAPE.": STOP 

1270 PRINT "YOU ESCAPE BUT YOU STILL 
LOSE THE GAME." | 


Tic-Tac-Toe 


Tic-Tac-Toe _ 
This is a classic game of strategy for two players. The computer provides the playing board and 


acts as master of ceremonies. It checks the progress of the game after each move and either 
announces the winner or determines whether the game is a tie. 


100 
110 
120 
150 


140 
150 


160 
170 


180 


190 


200 


210 


220 


230 


240 
250 


260 
270 


ANN 


: READ T(W,J): 


REM TIC-TAC-TOE 
DIM M(9) ,K(9),T(7,2) 
FOR W=1 TO 9: READ M(W): NEXT W 
FOR W=O TO 7: FOR 1-0 TO 2 
NEXT JW - 
FOR W=1 TO 9:K(W)=0: NEXT W 
DATA 1519,1525,1327,1479,1485, 
1487,1629,1643,1647 
DATA 1,2,3,4,5,6,7,8,9,1,4,7,2,5, 
8,2,6,9,1,5,9,5,5,7 
PRINT "LtCLRIEWHITEI" ` 
: PRINT "HELLO. YOU ARE ABOUT 
TO PLAY TIC-TAC-TOE": PRINT 
INPUT "WHO ARE YOU";A$: PRINT 
s PRINT A$", YOU MAY PLAY WITH 
А FRIEND. " 
PRINT "I WILL ANNOUNCE THE GAME." 
s PRINT : PRINT "WHO DO YOU 
WANT TO PLAY WITH"; 
INPUT B$: PRINT "CCLRI" 
PRINT A$" AND "BS", YOU САМ 
TAKE" | 
PRINT 
O IN 
PRINT 
ONCE 
PRINT 


"TURNS BY ENTERING X OR 

THE PLAYING GRID.": PRINT 

"EACH PLAYER MAY ENTER 

PER TURN. ": PRINT 

"THE PLAYER WHO GETS THREE 
IN A ROW WINS. ": PRINT 

PRINT "A ROW MAY BE HORIZONTAL, 
VERTICAL ORCSPACE 31DIAGONAL. " 

PRINT : PRINT "THE FIRST PLAYER 
USES АМ X. 

PRINT : PRINT "THE SECOND PLAYER 

USES АМ 0. ": PRINT : PRINT 
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280 


290 
500 


510 


PRINT : PRINT "<<<<<CSPACE 21 
PRESS ANY KEY TO CONTINUECSPACE 21 
22222" 


GET 0%: IF 0О%-"" THEN 290 


PRINT "CCLRI": PRINT "ИНЕМ YOU 
SEE THE SCREEN, YOU WILL SEE" 

PRINT "NUMBERS ІМ THE BOXES 
WHERE THE LETTERSCSPACE 21WILL 
GO0."s: PRINT 

PRINT "TO PLACE YOUR LETTER, 
SIMPLY TYPE THELSPACE З ІМОМВЕК 
WHICH IS LOCATED "; 

PRINT "WHERE YOU WANTCSPACE 21 

YOUR LETTER TO GO, AND PRESS 
CRVSONIRETURNCRVSOFF 1. " 

PRINT : PRINT : PRINT "WHO WILL 
GO FIRST, "Af" OR "Bf; 

INFUT Z$: IF Z$<>A$ a 2%< OBS 

THEN 340 

a Z$-0$ THEN Ғ%тА%: S$-B$ 
GOTO 380 

S$=A$: F$-Bf 

PRINT “CCLRICDOWN 51" 


585 FOR X-55296 ТО 56295: РОКЕ Х,1: 


МЕХТ Х 

FOR W=1 TO 3: PRINT TAB( 14)" 
CSPACE SICRVSON] CRVSOFFICSPACE 31 
CRVSON] CRVSOFFI"s NEXT W 

PRINT ТАВ( 14) "CRVSONICSPACE 111 
CRVSOFF 1" | 

FOR Wz1 TO 3: PRINT ТАВ( 14)" 
CSPACE SICRVSON] CRVSOFFICSPACE 31 
CRVSON] LRVSOFF1": NEXT W 

PRINT ТАВ‹ 14) "ECRVSONICSPACE 111 
CRVSDFF 1" 

FOR W=1 TO 5: PRINT TAB( 14)" 
CSPACE SICRVSON] CRVSOFFICSPACE 31 
CRVSON] CRVSOFFI": NEXT W 

FOR W=1 TO 9: POKE M(W) ,W+48 

s NEXT W | 

T=0:FL=0 

PRINT "LHOMEJ"F$", ENTER YOUR 
МОМЕ"; г INPUT MẸ | 

PRINT "LHOMEJLSPACE 581" 

Ме VAL (M$): IF M>9 ОК K(M)<>Q 
THEN 460 

POKE M(M) ‚24:К (M) Ms T=T+1 

s GOSUB 580: ТЕ FL=1 THEN 550 
PRINT "EHOME2"S$", ENTER YOUR 
MOVE"s: INPUT M£ | 

PRINT “CHOMEICSPACE 381" | 

Ме VAL (M$): IF М>9 OR K(M)<>Q 
THEN 500 


‚72 


Tic-Tac-Toe 


рактан он кк ет с ]xÉs =wal, jbyÉəÚG+=sw, G ÚÉ,+a +)Y:ZÜ)YKç:K”ÉÉ£IÉ/KVWKI,ÜçVIY<ÉYKóWVKYÜXI£ŠçWMvçIÉWŠIəIÉISIŠII Бичер най 


Alteration— Add music when the winner is 
announced by extending the subroutine 
beginning at line 630. 


POKE M(M) ,15:K (M) =M: T=T+1 

s GOSUB 580: IF FL=1 THEN 550 
GOTO 460 . | 

PRINT "LHOME1"W£: PRINT 

z INPUT "PLAY AGAIN"; 0% 

IF LEFT£ (0%,1)-"Ү" THEN 140 
END mE 
FOR W=0 TO 7:A= PEEK (M(T(W,O))) 
B= PEEK (M(T(W,1))) ` z 
“Се PEEK (M(T(W,2))) 

IF 4-24 AND B=24 AND C-24 THEN 


. WE=F $+" WINS!'":FL-1: GOSUB 630 


IF A=15 AND В=15 AND C-15 THEN 
И$=5$+" WINS!":FL-s1: GOSUB 630 / 


IF FL=0 AND T=9 THEN FL=1 


:Wfz"TIE GAME!" 
NEXT W: RETURN 


FOR Т=0 TO 2: POKE M(T(W,I)), 


PEEK (M(T(W4,12)2)*128: NEXT I 
s RETURN 
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Dice Racers 


Here isa dice-simulation game using a computer-generated pair of dice. Two players take turns 
"rolling" the dice. Each player uses the die values to move two cars toward a finish line. The first 


player with both cars over the line wins. 


100 


Alteration — Use the dice routine for any board | 110 

game requiring dice. Use lines 110, 490-510 

and 800-820. | 120 
130 


140 
150 


140 
170 
180 
190 
200 
210 


220 
250 
240 
250 


260 


270 


REM DICE RACERS 

FOR X=1 TO 6: FOR Yz1 TO $ 

s READ К%(Х,Ү): NEXT Y,X 

POKE 55281,0: PRINT "CCLRICWHITE 
"s TAB( 16) "CRVSONIDICE RACE" 


.$ PRINT 


PRINT "THIS GAME IS FOR TWO 
PLAYERS.": PRINT 

INPUT "PLAYER ONE'S МАМЕ"; М1+$ 

INPUT "PLAYER TWO'S МАМЕ" ; М2% 

: PRINT | 

PRINT "YOU EACH HAVE TWO CARS 
TO DRIVE BY" 

PRINT "MOVING THEM ACCORDING 
TO THE THROW" | 

PRINT "OF THE DICE. YOU CAN 
MOVE ONE CAR THE" 

PRINT "VALUE OF BOTH DICE OR 
SPLIT THE DICE" 

PRINT "AND MOVE BOTH CARS." 

: PRINT | | 

PRINT "YOU CANNOT MOVE MORE 
THAN THE VALUE OFCSPACE 21THE 
DICE.": PRINT 

PRINT "THE FIRST PLAYER TO HAVE 
BOTH CARS" 

PRINT "(H) ACROSS THE FINISH 
LINE WINS.": PRINT 

PRINT "AFTER THE DICE ROLL, 
THE COMPUTER WILL" 

PRINT "ASK YOU HOW MUCH YOU 
WANT TO MOVE CAR" 

PRINT "ONE AND THEN HOW MUCH ` 
YOU WANT TO MOVELSPACE 22САВ 
TWO. " 

PRINT "BE SURE TO ENTER А ZERO 
IF YOU DO NOTCSPACE Z1WANT 
TO MOVE 4 CAR." 

PRINT : PRINT "HIT ANY KEY TO 
START" 

GET Q$: IF Q$="" THEN 290 

Ri$="C(RVSONICMED.GRAYICSPACE 61 
CWHITE] CMED.GRAYICSPACE 81" 

R2$="CRVSONICMED.GRAYICSPACE 131" 

PRINT "CCLRI" ТАВ( 14);R1$ 

PRINT TAB( 14) "CRVSONICMED. GRAY] 

*F-I-N-I-S-Hx" 
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Alteration — Change the program so players 
have to hit the finish line exactly. If a car goes 
too far, it must start over. 


FOR Х=1 TO 10: PRINT ТАВ( 143; К1& 
s PRINT TAB: 14): К2%: NEXT X | 
IF LEN (N1$)»6 THEN N1$- LEFT? 
(N1f,6) 

IF LEN (N2$)>4 THEN N2$- 
(М2%,6) | 
PRINT "ГИНІТЕ1" TAB 14 )N1$; ` 
TAB 21)N2$"LHOME 1" | 

FOR X=1 TO 2: FOR Y=1 TO 2. 
sDS(X,Y)="CHOMEICDOWN 211" 

s NEXT Ұ,Х | 
d$z"LHOMEJLDOWN 151" 
R$(1,1)="CRIGHT 161" 

R$t1,2) =R#(1,1)+"CRIGHT 21" 
sR$(2,1)=R#(1,1)+"[RIGHT 61" 

К+ (2,2) xR$(2,1) xe" ERIGHT 21" 
Р=1:С=1 | | 

FOR Х=1 TO 2: FOR \=1 TO 2 

: PRINT D#(X,Y)šsR#£(X,Y);s "CRVSONI 
C[MED.GRAYIH": NEXT Y,X 

F2=0: IF LEN (0%(2,12)<2 AND LEN 
(D$(2,2)) 42 THEN Е2=1 

ҒісО: IF LEN (D#(1,1))<2 AND LEN 
(D$(1,2))€2 THEN Е1=1 

IF Ғісі OR F2=1 THEN 740 

PRINT "ІНОМЕ1": PRINT “CWHITEI 
PLAYER"P:Di= INT € RND (8) #5) +1 
:D2- INT ( RND (4)#4)+1 


LEFT$ 


PRINT : PRINT 

FOR Х=1 TO 3: PRINT "ESPACE 21 
"K$£(D1,X): NEXT X: PRINT : PRINT 
FOR Х=1 TO $: PRINT "LSPACE 21 
"K£(D2,X): NEXT X: PRINT : PRINT 
D=D1+D2 | 

PRINT J$;"LUHITE1HOW MANY" 

: FRINT "CAR # 1" 
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810 


820 


INPUT Q$ — | 

Q= VAL (Q$): IF QD THEN G-D- 
IF 0=0 THEN 600 

PRINT D$(P,1)sRS(P,1) ; " ERVSONJ 
[MED. GRAY] " 


 D#=D#(P,1): IF LEN (0%) <0+1 THEN 


Q= LEN (D$)-1 
D$- LEFT? (D$, LEN (0%)-0) 
: 0$ (Р,1) =0$ 
PRINT ОФ (Р,1) К#(‹Р„1) " ERVGON1 
СМЕО. GRAY JH" 
-р-0 
EDISI eee. FOR Х=1 TO 3 
PRINT "LSPACE 71": NEXT X 
PRINT J$3;"CWHITEJHOW MANY" 
s PRINT "САК # 2" 
INPUT Q$ | 
Q= VAL (Q$): IF @>D THEN Q=D 
IF 0=0 THEN 700 
PRINT D$(P,2) ; 2$ (Р,2) ; "CRVSONI 
LMED.GRAY3 " 
D$-D$(P,2): IF LEN (0%) <0+1 THEN 
Q= LEN (D$) -1 
0$= LEFT$ (D$, LEN (D$)-Q) 
:0%(Р,2) -D$ 
PRINT D#(P,2) sR#(P,2) ; "CRVSONI 
LMED.GRAYIH" | | 
FOR T=0 TO 999: NEXT T 
PRINT "LHOME1": FOR Х=1 ТО 18 
s PRINT “CSPACE 81": NEXT X 
IF P=1 THEN P=2: GOTO 470 
Р=1: GOTO 440 
PRINT "LCLRILUWHITEI" 
IF Ғісі AND F2-1 THEN PRINT Мі" | 
AND "М2%" TIED!": GOTO 780 
IF F1z1 THEN PRINT М1%" WINS!" 
IF F2-1 THEN PRINT N2$" WINS!" 
PRINT : PRINT s INPUT "FLAY 
AGAIN"; Q$ 


IF LEFT$ (Q$,1)="Y" THEN 120 


DATA "CRVSONICSPACE 51", "CRVSONI 
О ","CRVSONICSPACE 31","CRVSONIQ 
[SPACE 21","CRVSONICSPACE 31"," 
CRVSONICSPACE 210"  — 

DATA "LRVSUNIBESPACE 21","LRVSON1 
Q ","CRVSONICSPACE 21Q","LRVSONJ 


ее", , " CRVSONI ESPACE 31"; "TRVSONIG 


е" 
DATA "CRVSONIQ Q","CRVSON] Q 
1 ,"ERVSON1O б", ,"LRVSONJOGG", 7 
LRVSON1ESPACE 31", " RVGON1GGQ" 
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Alien 


Here's your chance to be the alien! From your space capsule, watch Earth come into view. 
Choose your options carefully. Will you invade or come in peace? 


100 REM ALIEN 
110 РОКЕ 53281,0 
120 PRINT "ECLRIEWHITEICOMMUNICATION 
2": PRINT : PRINT | 
130 pn ТАВ ¢ 4) "CBLUICRVSONICSPACE 24] 


140 PRINT ТАВ( 4) "CBLUICRVSONI 
CRVSOFFICWHITEICSPACE 21.L SPACE 61 
|. [SPACE 4].CSPACE 31. LBLUJ 

. . ERVSQN1 " 

150 PRINT ТАВ( 4)"LBLUJLRVSON] 
CRVSOFFICWHITEICSPACE 41.L SPACE 91 
.ГӘРАСЕ 31. ESPACE SJEBLUJERVSON] 

CRVSOFFICWHITEIESPACE 210М 
BOARD" 

160 PRINT ТАВ( 4) "CBLUICRVSON] 
CRVSOFFICWHITE] .CSPACE 7ICRVSONI 
vESPACE 2IcCRVSOFFICSPACE 71. 

|  EBLUIERVSON1 CRVSOFFICWHITE] 
[SPACE 21SYSTEMS: " 


MORE > 
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170 


180 


190 


210 


220 


250 


PRINT ТАВ( 4) "LELUJERVSON1 
CRVSOFFICSPACE 7ICLT.BLUICRVSONIv 
CRVSOFFIfFCSPACE 23+CRVSONI 


cLRVSOFF JESPACE 7ICBLUICRVSONI 
" | 


PRINT TAB( 4) "CBLUICRVSONI 
CRVSOFFICWHITEICSPACE 21.CSPACE 21 
[LT.BLUICRVSONIKCSPACE 21СКУБОҒЕ1 
CWHITEI++C°LT. BLU] bdCWHITE]+ 
[LT.BLUIk .CSPACE 51. CBLUICRVSONI 
" 
PRINT TAB( 4) "CBLUICRVSGON]J 
[RVSOFFICSPACE 61CLT.BLUICRVSONI 
CWHITEI++CLT. BLUILCRVSOFFI 


(Reena 


if CRVSONIVCWHITEI++CRVSOFFI 

[SPACE 410BLUICRVSON] " 

PRINT ТАВ( 4) "CBLUICRVSONI 
CRVSOFFICWHITEICSPACE 21..CSPACE 21 
[LT.BLUICRVSON]k CWHITE]++ 
CRVSOFF1I+CLT.BLUICCRVSON] CWHITE] 
+ELT. BLU] CRVSOFFIKCWHITEICSPACE 21 
.LSPACE 22CBLUICRVSON] " 

PRINT TAB( 4)"CBLUICRVSON] 
CRVSOFFICSPACE 7ILELT.BLUICRVSONI£ 
[SPACE 21tRVSOFF1 CWHITEI+ 
[LT.BLUJdCRVSON] dC RVSOFFICSPACE 71 
CBLUICRVSON] " 

PRINT TAB( 4) "CBLUICRVSONI 
CRVSOFFICWHITE] .CSPACE 21. 

.LSPACE 21JELT.BLUJCRVSONJi. 
CWHITEI++CLT. BLUJi CRVSOFFICWHITE] 
[SPACE 41.CSPACE 41LBLUJCRVSONJ 

" 

PRINT ТАВ( 4) "CBLUICRVSON] 
ГЕУӘОЕЕ2ГИНІТЕ1ГЕРАСЕ 31.CSPACE 31 
[SPACE 41.Г5РАСЕ 41.Г5РАСЕ 21. 

CBLUICRVSON] " 

PRINT ТАВ( 4) "CBLUICRVSONI 


CRVSOFFICWHITEICSPACE 21. . 


[SPACE 21. L SPACE 21.L SPACE 51. 
[SPACE SICBLUICRVSON] " 

PRINT TAB. 4) "CBLUICRVSONICSPACE 241 
"s PRINT 

PRINT "СИНІТЕЈКОСКЕТ ORIENTATION 
з": PRINT 

PRINT " CRVSONICSPACE SIFCRVSOFF] 
[SPACE 21S8PEED:" 

PRINT " CRVSON] CRED] CWHITE] 
UCRVSOFF 1" 

PRINT " CRVSON] CRED] CWHITEI 
ECRVSOFFICSPACE 2JWARP DRIVE: " 

s PRINT " CRVSON] CRED] CWHITE] 
LERVSOFF 1" | 


Alien 


300 PRINT " CRVSON] CREDI LWHITE1 
[SPACE 21LRVSOFF JESPACE SOME 
STATUS: " 
310 Di¢g="C(HOMEICDOWN 171" 
$D2€$zD1$-4"LDOWN 21" 
¢D3$=D2$+"CDOWN 21" 
. eD4$z2D3$-4"LDOWN 23" 
$20 nee eG) 201":K$="CHOMEICRIGHT 151 


330 Es" CHOMEICDOWN 81"+R$+"CRIGHT 101 
" 


340 BS="CSPACE 251":B1fz"L[SPACE 93" 
350 PRINT "LHOME1" | 
360 PRINT D1$;R$;"EARTH" 
570 PRINT D2$; Rf; "SUBLIGHT" 
580 PRINT D3$;R$;"QFF" 
590 PRINT D4$;R$; "CGRNIGREEN" 
400 PRINT 5%; "ГИНІТЕЛЕАКТН ON" 
s PRINT S$; "CDOWNIMONITOR. " 
410 FOR Т=1 TO 2000: NEXT T 
420 PRINT К$;В$: PRINT 65%;В1% 
z PRINT S$; "ГрОММ1";В1% 
430 PRINT S$;"A) INVADE" 
440 PRINT S¢#;"CDOWNIB) FLEE" 
450 PRINT 5%; "ГрОММ 21C) PEACE" 
460 PRINT K€; "WHY DO YOU COME 
(LETTER) 2" 
470 GET C$: ТЕ C$z"" THEN 470 
480 IF C$z"A" THEN 520 
490 IF С$="В" THEN 990 
QOO IF C#="C" THEN 1550 
310 GOTO 470 
320 PRINT K$; B$: PRINT К; "WOULD 
YOU RECONSIDER 7?" | 
350 PRINT S$;B1$: PRINT S$;"LDOWUNJ1"; 
B1$: PRINT S£$;"LDOUN 21";B1f 
240 PRINT S#;"CRVSONIYCRVSOFFI] YES" 
s PRINT 5%; " EDOWNJERVSONIN | 
СКУЅОҒЕЈ NO" 
550 GET 0%: IF @¢="" THEN 550 
360 IF Q$z"Y" THEN 420 
570 PRINT K$; "ИЕ MUST DEFEND 
| OURSELVES!" ` 
580 50=54272: FOR L=0 TO 24 
s POKE SO+L,O: NEXT L | 
s POKE 50414,5: POKE 60418,16 
390 POKE 50+5,1: POKE SO+24,143 
s POKE 80+6,240: POKE 90+4,65 
600 FOR X=0 TO 99: PRINT 04%; R$; BS" 
LHOME2": POKE 50+24, 145 
610 IF INT (X/10)/2- INT ( INT 
(Х/10) /2) THEN 630 
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620 PRINT D4$;R$; “CRVSONICREDICSFACE 21 
CWHITEIRED ALERT! CREDICSPACE 23 
CWHITEICRVSOFF 1EHOME 1" 
2% POKE 50+24,0 
550 POKE 50,25: POKE 50ғ1,43 
640 NEXT X: POKE S0+24,0 
Alteration — Add sound when the earthlings 650 PRINT К%;Б%: PRINT К$; “THEY 
Shoot at you, line 650. | ARE FIRING!" ` | 
| 460 PRINT 85%;В1%: PRINT S#3"CDOWNI"s 
B1$: PRINT S#"CDOWN 21";B1$ 
| 670 PRINT 5$; "А) SHIELD" | 
_ £ PRINT S#3"CDOWNIB) FLEE" 
680 GET 0%: IF 0%-"" THEN 680 
690 IF 6$="А" THEN 720 
700 IF Q$z"B" THEN 990 
710 GOTO 6980 
720 S=S+1 
Alteration — Change the probability of being 730 IF ЕМ) (8)<„4 AND S»3 THEN 960 
destroyed by changing line 730. For example, 740 PRINT K#;B#£: PRINT Kf;"SHIELD 


IF RND(8) «.5 AND S» З THEN 960 will | INTACT" 
increase your chance of destruction. | 750 FOR Т=1 ТО 1500: NEXT Т 
760 PRINT 8$;B1$: PRINT S$;"LDOWN1"; 
Bit 


770 PRINT S#3"A) ATTACK" _ 
s PRINT S#3"CDOQWNIB) FLEE” 
s PRINT S#3;"CDOWN 21С) PEACE" 

780 PRINT K$;B$: PRINT K$; “WHAT 
NOW 2" 

790 GET 0%: IF Q$-"" THEN 790 

800 IF Q$="A" THEN 840 

810 IF Qfz"B" THEN 990 

820 IF Q#="Ü" THEN 1560 

830 GOTO 790 

840 PRINT КЄ: В: PRINT КЖ: "WHICH 
CITY"ss: INPUT N$ 

850 PRINT K$; B$ 

840 A= RND (8) 

870 IF А<.5 THEN PRINT K$; "ATTACK 
FAILED": GOTO 890 

880 PRINT КЄ; N$" DESTROYED!" 

870 FOR T=1 TO 1500: NEXT T 

: 900 PRINT K$: B$ 
Alteration — Change the probability of Earth ‚910 IF А>.98 THEN PRINT K£"EARTH 


surrendering by changing A in line 910. For SURRENDERS! YOU WIN'": STOP 
example, IF A» .9 will increase the probability 920 IF 45.05 THEN 570 
that Earth would surrender. 930 PRINT "CHOME]I CANNOT LET YOU 


KILL INNOCENTS! YOUR" 

940 PRINT “LIFE SUPPORT WAS TURNED 
OFF. YOU LOSE!" 

950 STOP | | 

960 GOSUB 1620: PRINT "LHOMEJYOUR 
SHIELDS DID NOT HOLD QUT!" 

970 PRINT ТАВ ( diem YDU LOSE! 
xx" 


анажан кен сы DOR POR U ты UR CONO 


80 


Alien 


980 STOP | | | 
990 PRINT S$;B1%: PRINT 5%; "CDOWN1"; 
Bi$: PRINT 5%; "LDOWN 21";В1% 

1000 PRINT КФ; ВФ _ 

1010 PRINT "LHOMEJLDOWN 41" 

1020 PRINT TAB( 4) "CBLUICRVSONI 

CRVSOFFICWHITEICSPACE 41.Г5РАСЕ 61 
{SPACE 51.ГБРАСЕ 21. CBLU] = 
C[RVSON] " 

1030 PRINT TAB( 4) "CBLUICRVSON 
 ERVSOFFILWHITEl .CSPACE 31. | 
[SPACE 31. .CSPACE 41. .CSPACE 21 
.FBLUJIRVSDN2 " 

1040 PRINT ТАВ( 4) "CBLUJCRVSON1 

CRVSOFFICWHITEICSPACE 41.LSPACE 21 
.LSPACE 21.Г5РАСЕ 41.CSPACE 21. 
. CBLUICRVSON] " 
1050 PRINT TAB( 4) "CBLUICRVSON 
CRVSOFFICWHITE] .CSPACE 61. 
[SPACE 51... .СБРАСЕ 3ILBLUJ 
CRVSON] " 
1060 PRINT TAB( 4) "CBLUICRVSON 
CRVSOFF ICWHITE].CSPACE 21. 
[SPACE 71.CSPACE 31.LSPACE 31. 
[SPACE 21ECBLUILRVSON1 " 
1070 PRINT ТАВ( 4) "EBLUJCRVSON1 
CRVSOFFICWHITEILSPACE 21.LSPACE 31 
.ESPACE 21.С5РАСЕ 31.CSPACE 21. 
ГЕРАСЕ 51. CBLUICRVSON] " 

1080 PRINT TAB( 4)"LBLUJCRVSONJ 
CRVSOFFICWHITE].CSPACE 41. 
[SPACE 31.CSPACE 71.CSPACE 21 

CBLUICRVSON] " 

1090 PRINT TAB: 4)"LBLUJERVSON] 
CRVSOFF ICWHITEICSPACE 31.CSPACE 21 
.LSPACE 71. .CSPACE 31..CBLUI 
-ERVSON] " 

1100 PRINT TAB( 4)"CBLUICRVSONI 
CRVSOFFICWHITE] ..CSPACE 21. 
[SPACE 21. .CSPACE 2].CSPACE 31. 
.СБРАСЕ 21LBLUIERVSONI " ` 

1110 PRINT TAB( 4)"LBLUJCRVSONJ 
CRVSOFFICWHITE]. . . .CSPACE 21. 
СБРАСЕ 61.CSPACE 51LBLU1LRVSON1 


1120 PRINT K$;"LWHITEJENTER X 
СООКОТМАТЕ";: INPUT X$ 

1150 Х= VAL (X$) 

1140 PRINT K$; BẸ 

1150 PRINT K$; "ENTER Y COORDINATE"; 
s INPUT \$ 

1160 Y= VAL (Y$) | 

1170 PRINT K$;Bf MORE > 

а 
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Alteration — Change the appearance of the 
planet Omega by changing PRINT statements 
in lines 1340-1440. 


1180 PRINT K$;"PRESS 'W' TO WARP 
OUT" 7 

1190 GET Q$: IF Q¢<>"W" THEN 1190 

1200 PRINT р1#; К+; HYPERSPACE" 

1210 PRINT D3$;R$;"ONLSPACE 21" 

1220 PRINT D4$;R$;"GREENLSPACE 101 
L HOME 1" 


1230 PRINT "CHOMEICDOWN 31" 


s FOR 47-1 TO 11 

1240 PRINT ТАВ( 4) "CBLUICRVSONI 

CRVSOFF JEWHITE Т ЧЗ Зе ЗЕ ЗЕ ЗЕ ЗЕ З 3€ 9€ 9€ 9€ 909€ 

AX LBLUIERVSONI " 

1250 NEXT J 

1240 FOR W=0 TO 9: FOR T=1 TO 200 
e NEXT T 

1270 PRINT D2$;R$;"LUHITEJWARP " 
STR (W)+"CSPACE 572" 

1280 NEXT W 

1290 FOR W=9 TO О STEP -1 
s FOR Т=1 TO 200: NEXT T 

1300 PRINT 02%: К; "ГИНІТЕЈИАВР " 
STRE (W)+"CSPACE 51" 

1310 NEXT W 


.1320 IF INT ( RND (7)#20)=Y AND INT ¢ 


RND (8) #20) =Х THEN 1530 

1330 PRINT "LHOMEJCDOWN 31" 

1240 PRINT TAB: 4) "CBLUICRVSONI 
CRVSOFFICWHITEICSPACE 21.LSPACE 61 

-CSPACE 61.L SPACE 31. LBLUJ 
CRVSON] " | 

1350 PRINT ТАВ( 4) "CBLUIECRVSON] 

CRVSOFFICWHITEICSPACE 41.L SPACE 9] 
|. [SPACE 3].CSPACE SIEBLUJERVSONJ 
CRVSOFF 1" 

1540 PRINT ТАВ( 4A»)"LBLUJLRVSON1 

CRVSOFFICWHITE] .CSPACE 71LRED1 
CRVSONIVESPACE 2icCRVSOFFICSPACE 71 
. CBLUICRVSON] CRVSOFFI" 

1370 PRINT TABC 4) "CBLUICRVSONI 
CRVSOFFICSPACE 7ICREDICRVSONIv 
CRVSOFFICSPACE 3]3+CRVSONI] с 

CRVSOFFICSPACE 71ICBLUICRVSON] 
и | 


1380 PRINT ТАВ( 4) "CBLUICRVSONI 
CRVSOFFICWHITEICSPACE 2].CSPACE 31 
CREDICRVSONIKCSPACE 21CRVSOFFI 
CYELJ++CREDICSPACE Z2IkCYELI+k 
ГИНІТЕ1 .LSPACE 31. CBLUICRVSONI 


1390 PRINT TAB 4) "CBLUICRVSONI 
CRVSOFFICSPACE 6] 0REDICRVSONI 
CYELI+CREDIb CRVSOFF] iifRVSONIV 

CYELI++CRVSOFFICSPACE 67284172 
CRVSON] " 


—_— SSeS? 
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1400 PRINT TAB( 4) "CBLUICRVSONI 

CRVSOFFICWHITEICSPACE 21.. 
[SPACE 21CREDICRVSONICSPACE 21 
CYELI+-CRVSOFFI+CRED] LRVSUN1 

CYELI+CREDICSPACE 21LRVSDFF1 
CWHITEICSPACE 31.CSPACE 2128411 
CRVSON] " 

1410 PRINT TAB: 4)"CBLUICRVSON 
CRVSOFFICWHITEICSPACE 21.Г5РАСЕ 31 

CREDICRVSONIk CYELI+++CREDI 

CRVSON] CYELI+CRED] CRVSOFFIk 
CWHITEICSPACE 31.CSPACE 21CBLUI 
CRVSON] " | 

1420 PRINT TAB( 4)"EBLUJERVSON1 | 

CRVSOFFICSPACE 71ICREDICRVSONI£ 
[SPACE 21CRVSOFF] CYELI+CRED1v 
CRVSON] dCRVSOFFICSPACE 71CBLUI 
CRVSONI " 

1430 PRINT TABC 4) "CBLUICRVSONI 
CRVSOFFICWHITE] .CSPACE 21. 
.СЅРАСЕ ZICREDICRVSON]i CYELI+ 

CREDIi CRVSOFFICWHITEICSPACE 41. 
[SPACE 4] (BLUICRVSON] " 

1440 PRINT TAB( 4) "CBLUICRVSON] ~ 

CRVSOFFICWHITEICSPACE 31.CSPACE 31 
.LSPACE 41. {SPACE 41.CSPACE 21. 

| CBLUJERVSONJ " 

1450 PRINT D1$;R$; "CWHITEJOMEGA 
SYSTEM" 

1460 PRINT D2$;R$; SUBLIGHTLSPACE 41" 

1470 PRINT 03%; 8$; "OFF" 

1480 PRINT D4$;R$; "CGRNIGREEN" 

1490 PRINT S$;"CWHITEJOMEGA ОМ" 

i PRINT 5$; "CDOWNIMONITOR. " 

1500 PRINT К%;В% 

1510 PRINT К$; "WELCOME TO OMEGA 
=. " 

1520 PRINT "SAFE ESCAPE!": STOP 

1530 GOSUB 1620 

1540 PRINT s PRINT : PRINT "LUWHITEJ 

YOU HIT А STAR! YOU LOSE!" _ 

1550 STOP 

1560 PRINT K#;B¢ 

1570 PRINT КФ; "WELCOME TO PLANET 
EARTH. " 

1580 FOR Х=1 TO 6 

1590 PRINT K#;"CDOWN1"; Bf 

: FOR Т=1 ТО 200: NEXT T 

1500 PRINT K£; "LDOWN1"s "CRVSONIJYOU 

| WIN": FOR Т=1 TO 200: NEXT T 

| 1610 NEXT X: STOP 


MORE » 


83 


Alien | 


84 


| 1620 N=53281: POKE N-1,2: POKE 55281,7 


s PRINT "CCLRICWHITEICDOWN 81 
[SPACE 1213*«x*DESTROYEDs««" 
1630 8254272: FOR L=S TO 6-24 
s POKE 1,0: NEXT 
1640 РОКЕ 845,15: POKE S+4,15 
: POKE 8424,15 
1650 POKE 841,5: POKE 5,235 
: POKE 844,129: POKE $44,128 
1660 FOR Х=1 TO 99: IF ( PEEK (№) 
AND 15)=7 THEN POKE М,2 
s GOTO 1480 
1670 POKE N,7 | 
1680 FOR Т=1 TO 44: NEXT T,X 
1690 POKE М-1,14: POKE N,4 
1700 RETURN | 


Hangman 


Hangman m 
Sharpen your word skills by playing this classic game with your computer. The computer will 
think of a word. You guess it, letter by letter. A correct letter will be inserted into the appropriate 
space. Each wrong letter adds to the hangman. You are allowed 12 wrong guesses before being 
hung. When the hangman is complete, the whole word is displayed. The computer gives you 10 
_ words. Your score is based on the length of correctly identified words and the number of missed 


letters. 


100 
110 


120 


REM HANGMAN 

POKE 53281,0: PRINT "LCLRILWHITEJ 
THE COMPUTER THINKS OF А WORD. 
YOU TRYCSPACE 31TO GUESS IT." 
PRINT "TWELVE WRONG GUESSES 
BUILD THE HANGMAN. " 

PRINT : PRINT "HIT ANY KEY" 

GET Q$: IF Q$="" THEN 140 

ЗЕ=О: FOR PL=1 TO 10 | 

PRINT s PRINT "CCLRIWORD #"PL 
СТ=0: NW=100 | 

READ W$: IF СТ>24 AND ВМО 
(8)<1/МН THEN RESTORE : GOTO 210 


СТ=СТ+1: IF W$-"END" THEN 
RESTORE : GOTO 170 

GOTO 180 

беш" w 

PRINT "ECLR1": PRINT : PRINT 


e PRINT : PRINT : PRINT : PRINT 

FOR Х=55296 TO 56295: POKE Х,1: 

NEXT X 

PRINT "LSPACE 10111111" 

PRINT "CSPACE 101-С5РАСЕ SJLRVSONJ 
“° 


PRINT "CSPACE 101-LSPACE 31LRVSON1 
п 


FOR А=1 TO 7: PRINT ТАВ‹ 14)" 
ГРУЗОМ] ": NEXT А 


| РОК А=1 TO 5: PRINT "LSPACE 41 


CRVSONICSPACE 71g*wLSPACE 51" 
: NEXT А 


) PRINT "CHOMEICRIGHTICDOWNI"; 


e FOR X=1 TO LEN (WS): PRINT "-'; 
2 NEXT | 
С=О: 1=0 

PRINT “CHOMEICDOWN 21" 

s PRINT "ENTER ñ LETTER: " 

POKE 198,0 


GET L$: IF L#="" THEN 520 
PRINT "ГНОМЕЛГрОАМ SICSPACE 171" 


К=0: РОК A=1 TO LEN (Gf). 
: IF = MID$ (Gf$,0,1) THEN K=1 
NEXT А: IF К=1 THEN $00 


MORE > 
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Alteration — A simple vocabulary of 
commonly used English words is in DATA 
statements 560 to 600. You can replace or 
extend this vocabulary by adding or deleting ` 
DATA statements. The last word in the last 
DATA statement must be END. It is used asa 
marker to identify the end of the list. 
Depending on the average length of the 
Words, you can store a few thousand words in a 
Commodore 64. If you increase the list to 
more than 100 words, increase the value of 


NW in line 170 to equal the number of words ` 


in the list. 


Alteration— Design the word list for a certain 
user. For example, make a list of foreign words 
for the person learning a foreign language. Or, 
make a list of simple words for a child learning 
how to spell. 
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260 


370 


380 


590 


600 


610 


 I=I+1: 


Gf-Gf$-L£$ 

PRINT "EHOMEJLDOWN 41":Gf$ 

Е=1: FOR X=1 TO LEN (Wf) | 

IF L#= MIDS (W$,X,1) THEN PRINT " 
ІНОМЕ1": PRINT TABC Х) ©; Ғ-О 

8 С=С+1 

NEXT X - 

IF C= LEN (ИФ) THEN 470 

IF Fz0 THEN 300 

READ M,L: 
s POKE L+30720,2 
IF І<12 THEN 300 
PRINT "ІНОМЕ1": PRINT 
HUNGCSPACE 21": PRINT 
WORD WAS:": PRINT Wt 

GOTO 490 | 

PRINT "LHOMEQJLRIGHT 51. 
##SUCCESS##" 

SE=SE+S* LEN (W$)-I: PRINT 
s PRINT "YOUR SCORE ="SE 
FOR T=1 TO 4000: NEXT 

NEXT PL 


POKE L,M 


"YOU 'RE 
"THE 


RESTORE 


PRINT "ECLR1": PRINT "YOUR FINAL 
SCORE="SE: PRINT 

INPUT "PLAY AGAIN (У/М)"; ОФ 

: IF LEFTS (0$,11)z"Y" THEN 100 

DATA 87,1434,102,1474,102,1514, 

78,1473,77,1475 

DATA 101,1513,1053,1515,160,1554, 

221,1594,221,1634,108,16533,123, 
1435 

DATA THE,AND, THAT, FOR,WITH,WAS, 

HIS,NOT,BUT,HAVE, YOU, WHICH,ARE, | 

HER,HAD ,FROM, THIS 

DATA THEY,THEIR,SHE, HAS,WERE, 

BEEN,HIM,ONE,SO,WILL, THERE ,WHO, 
WHEN , WHAT , YOUR, MORE 

DATA WOULD, THEM,SOME, THAN, MAY , 
UPON, ІТ, QUT , INTO, QUR, THESE ‚МАМ, 

LIKE, SHALL GREAT , NDW 

DATA SUCH, SHOULD. OTHER, ONLY ,ANY , 
THEN, ABOUT , THOSE , CAN, MADE, WELL 
DATA OLD,MUST,SAID, TIME,EVEN,NEW, 

COULD, VERY ,MUCH,OWN,MOST,MIGHT, 
FIRST, AFTER, YET, TWO 

DATA END 


Dr. Sigmund 


" | 
| Dr. Sigmund 
Find out more about yourself by having the great psychiatrist Dr. Sigmund analyze you. Once on 
the couch, you are shown computer-generated ink blots. You enter your first impression about 


what you see and get instantly analyzed in the classic fashion. You get 14 analyses per visit. There 
are no scores and no losers. This is a great game for a party. | 


100 


Alteration —Change the ink-blot patterns by 110 


changing the graphics symbols in string - 
variable K$, line 110. To simplify the pattern, 


‚ add more spaces to K$. | 120 


130 
140 
150 
160 


170 


180 
190 


200 


FOR Т=1 TO 4000: 


REM SIGMUND 
Cs="C(BLKICWHITEICREDICCYNICPURI 
LGRNIELBLUJLYEL 1": K$"Epound 1 
Qi-k"s POKE 53280,6: POKE 55281,0 
PRINT "ГСІК1": PRINT "HELLO, 
I AM ANNA, SECRETARY TO DR." 
PRINT "SIGMUND. IS THIS YOUR 


FIRST "; 


INPUT "VISIT";A$: PRINT 
: IF LEFT$ (A$,1)="N" THEN 270 
INPUT "WHAT IS YOUR NAME"; B$ 

: PRINT | 

PRINT "YOU ARE IN LUCK "B£"." 
: PRINT "DR. SIGMUND WILL SEE 
YOU NOW." p 

NEXT T 

: PRINT "CCLRI" 

PRINT "PLEASE, MAKE YOURSELF 
COMFORTABLE ONCSPACE 41ТНЕ 
COUCH.": PRINT ` 

PRINT "I SEE THAT YOU ARE А 
LITTLE BIT": PRINT "NERVOUS, 
" B$ " ; 63 

PRINT "NOW TRY TO RELAX." 

: FOR T=1 TO 4000: NEXT Ts 


PRINT 
MORE ~ 


Dr. Sigmund 
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Alteration—Change the number of questions, 
variable S, in line 260. 


Alteration — Change any word from the 
analyst's list and the corresponding 


interpretation. For example, change SPIDER | 


in lines 320 and 360 to a friend's name and 
enter something about that person in lines 520 
and 530. Customize the program to suit your 
purposes. 
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310 
320 


РОК Т-1 TO 5000: 


NEXT Y: 


IF O$z"ROPFE" 


PRINT "I HAVE SOME PRETTY 

PICTURES TO SHOW YOU." 

PRINT "JUST LET YOUR MIND 60 
TO REST. LOOK ATCSPACE 21ТНЕ 
PICTURES AND PICK FROM" 

PRINT "THE LIST WHAT" 

s PRINT "IT REMINDS YOU OF. 

IF SOMETHING" | 

PRINT "ELSE, JUST ENTER THAT." 
: FOR T=1 TO 7000: NEXT T:S=0 

NEXT T 

S=S+1: IF S=14 THEN 740 

PRINT "CCLRIOK, HERE IS А PICTURE 

e": PRINT 

FOR Х-О TO 9: PRINT ТАВ( 69; 

s FOR Y=1 TO 20:C= INT ( RND 
(7)#8+1):s PRINT MID$ (C$,C,1); 

k= INT ( RND (8) жағ1) 

s PRINT MIDS (Кк%,К,1); 

PRINT " "s NEXT X 

PRINT 

PRINT “CWHITEICSPACE SISPIDER 

CSPACE SIMOTHERCSPACE 61CAT" 

PRINT "CSPACE SISNAKECSPACE 41 

BUTTERFLYCSPACE 31КОРЕ" 

PRINT “CSPACE SIFATHERCSPACE 51. 


 REINDEERLSPACE 4357000" 


PRINT : INPUT 0$: 
IF 0$-"SPIDER" 
IF О%-"МОТНЕК" THEN 540 

IF 04+="САТ" THEN 540 

IF O$z"SNAKE" THEN 580 

IF O$z"BUTTERFLY" THEN 600 

THEN 620 

IF O$z"REINDEER" THEN 640 
IF O$z"FOOD" THEN 440 

IF O4="FATHER" THEN 670 

IF 0$=" ПМК BLOT" THEN 580 
IF Of-"FACE" THEN 700 

IF 0$-"CAMEL" THEN 720 
PRINT "TELL ME ABOUT YOUR 
CHILDHOOD."s INPUT P$ 
PRINT "LCLR1GO QON...": 
: PRINT "CCLRIHMMM...TELL ME 
МОКЕ. ": INPUT FPS 

PRINT "CCLRITHAT IS ENDUGH FOR 
NOW. CALL ME TOMORROW ABOUT 
THIS." 

GOTO 250 

PRINT "OBVIOUSLY YOU FEEL 
ENTANGLED. THE" — 


PRINT "CCLRI" 


THEN 520 


INPUT P$ 


530 PRINT 


540 


Ja0 


560 


Dr. Sigmund 


"SPIDER IS А SYMBOL ОҒ 

YOUR FEAR OFLSPACE 61 | 
FRUSTRATION.": GOTO 250 

PRINT "YOUR DEEP FEELINGS РОК 
YOUR MOTHER ARE" 

PRINT "ONLY NATURAL. DO NOT 

BE AFRAID TO LETLSPACE 51ТНЕМ 
SHOW.": GOTO 250 

PRINT “SOMEWHERE IN YOUR 


_ SUB-CONSCTOUS, CSPACE 81Ү0М HAVE 


| 970 


580 


390 
600 


890 


710 


РКІМТ 


а FEAR OF CATS." 

PRINT “YOU STARTLE WHEN ONE 
CROSSES YOUR PATHCSPACE 21АТ 
NIGHT.": GOTO 250 

PRINT "BEWARE THE SNAKE. YOU | 
NEED TO CONTROLCSPACE 31YOURSELF 
IN TENSE SITUATIONS." 

GOTO 250 | 

PRINT "THE BUTTERFLY SYMBOLIZES | 
YOUR FREELSPACE 631SPIRIT AND 
GREAT INNER JOY." 


PRINT "LET YOURSELF HAVE FUN. " 
s GOTO 250 
PRINT "THE ROPE IS A SIGN OF 


THE STRONG SUPPORT YOU OFFER 
YOUR FRIENDS." 
"YOU HAVE GREAT INNER 
RESERVES.": GOTO 250 
PRINT "YOU ARE BLESSED WITH 
A CHILDLIKE LOVELSPACE 31FOR 
NATURE. YOUR HEART IS "; 
PRINT "PURE.": GOTO 250 | 
PRINT "EITHER YOU ARE HUNGRY 
OR YOU DESIRE TOLSPACE 21FEED 
OTHERS.": GOTO 250 
PRINT "YOUR FEELINGS FOR YOUR 
FATHER MUSTCSPACE SISOMEDAY 
BE EXPLORED.": GOTO 250 
PRINT "YOU ARE A REALIST. 
UNFORTUNATELY, YOULSPACE З1АВЕ | 
WITHOUT IMAGINATION. " 
GOTO 250 | 


PRINT "YOU ARE LIKE А NEWBORN 
CHILD, YOU ARE" 


PRINT "ATTRACTED TO FACES. YOU 
SEEK ACCEPTANCE AND LOVE." 

s GOTO 250 

PRINT "ОМЕ HUMP OR TWO?" 

: PRINT "SERIOUSLY, YOU ARE 

IN A SPIRITUAL DESERT" 

PRINT "ALONE YOU CAN PREPARE 
TO REENTER THES 4 WORLD.” 


s GOTO 250- 
MORE > - 
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740 PRINT "LCLRITHANK YQU FOR COMING. 
I WILL SEE YOULSPACE 41AGAIN 
[SPACE 21NEXT WEEK." | 
750 PRINT "PLEASE LEAVE $50 ОМ THE 
TM. ч 
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. Spatial Concepts 


Spatial Concepts 

This fun program is enjoyed by young children. It combines picture-making and learning the 
concepts of up, down, left, right and in. | 

The child chooses from a list of objects: bird, child, duck and star. Then the child chooses where 
to place the object in the colorful castle and landscape displayed on the screen. The object can also 
be erased. 

The child should play along with an older person — especially if the child can't read. Together 
they can create pictures and a story! 


100 REM SFATIAL CONCEPTS | 
110 L$(t1)z"LHOMEJCLDOUN 1621LRIGHT 111" 
120 L$(2)=L$(1)+"CDOWN 41CRIGHT 181" 
150 L$CS)2"LHOMEJCDOUNJILERIGHT 161" 
140 L¢(4)="CHOMEJCDOWN 121LRIGHT 21" 
sL$(5)=L$(4)+"CRIGHT 291" 


MORE + 


Spatial Concepts 


150 PRINT "L[CLR2J": PRINT ТАВ( 
| 12) "SPATIAL CONCEPTS": PRINT 
e PRINT 
160 PRINT "WE ARE ABOUT TO PLAY 
A GAME TO LEARN UP,DOWN, LEFT, 
RIGHT AND IN." 
170 PRINT 
180 PRINT "YOU WILL SE А CASTLE 
о WITH THE WORDS UP, DOWN, LEFT, 
RIGHT АМР IN." | 
190 PRINT | . 
200 PRINT "THESE WORDS ARE PLACES 
NEAR THE CASTLELSPACE 21THAT 
SHOW WHAT THE WORDS MEAN." 
210 PRINT : PRINT "AT THE BOTTOM 
| UF THE SCREEN YOU WILL" 
220 PRINT "SEE THE NAMES OF THINGS 
TO PAINT WITH.": PRINT | 
230 PRINT “YOU CAN USE THESE THINGS 
TO FINISHCSPACE 31THE CASTLE 
PICTURE."s PRINT 
240 РАТМТ "PRESS ANY KEY ТО 
CONTINUE.": PRINT |. 
250 GET Q$: IF Q9$z"" THEN 250 
260 PRINT "ГСІК1": PRINT "I WILL 
ASK WHAT THING YOU WANT TO 
| ADD" | 
270 PRINT "TO THE PICTURE, AND YOU 
MUST ENTER ITSCSPACE 21NAME." 
| s PRINT | 
280 PRINT "THEN I WILL ASK YOU WHERE 
YOU WANT ТО" 
290 PRINT "PUT THE THING NEAR THE 
CASTLE, AND YOULSPACE 2IMUST 
TELL ME: UP, DOWN, LEFT"; 
300 PRINT "Ç, RIGHT, OR ІМ. ": PRINT 
310 PRINT "OK, LET US BEGIN..." 
e PRINT | 
S20 PRINT "PRESS АМҮ KEY TO START." 
z PRINT | | 
550 GET Q$: IF Q$z"" THEN 250 
540 FOR Х=1 ТО 5: READ Т$(Х): NEXT X 
530 DATA BIRD,CHILD,DOG,STAR,ERASE 
260 FOR Х=1 TO 5: READ W(X): NEXT X 
370 DATA IN,DOWN,UP,LEFT,RIGHT 
580 PRINT "LCLR2J"s PRINT : PRINT 
s PRINT | 
590 FOR Х=55896 TO 56295: POKE X,5 
: NEXT X | 
400 FOR Х=1624 ТО 2023: POKE X,160 
200: NEXT X 8” 
410 POKE 53281,1: POKE 53280,4 
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Spatial Concepts | 


Alteration — Change the castle design by - 


altering lines 420-590. 


4720 


480 


490 


500 


310 
520 


950 
340 


330 


360 


370 


PRINT ТАВ( 14) "CMED.GRAYICRVSON]I 
CRVSOFF1 CRVSONICSPACE 31 
CRVSOFF J CRVSON] CRVSOFFI" 

PRINT ТАВ( 14) "CRVSONICSPACE 71 
CRVSOFF 1" 

PRINT ТАВ ( 15) "CRVSONICSPACE 52 
CRVSOFF 1" 

PRINT ТАВ( 15) "СКУЗОМЗЕЗРАСЕ 53 
CRVSOFF 1" 

PRINT TAB. 15) "CRVSONICSPACE 21 
CBLKI CMED. GRAY JESPACE ZICRVSOFF 3 
" 

PRINT ТАВ( 9) "CRVSONICSFACE 21 
CRVSOFF] CRVSON] CRVSOFFICSPACE 21 
CRVSONICSPACE 23CBLK] СМЕР. GRAY] 
CSPACE 21ERVSOFF1LSPACE 21LRVSON1 
СЗРАСЕ 2Z21CRVSOFFI CRVSONICSPACE 21 
CRVSOFF 1" 

FRINT ТАВ( 9) "CRVSONICSPACE 41 
CRVSOFFICSPACE 21tRVSDNILSPACE 51 
CRVSOFFICSPACE SICRVSONICSPACE 31 
CRVSOFFI1" = 

PRINT ТАВ( 9) "CRVSONICSPACE 31 
CRVSOFFICSPACE SICRVSONICSPACE 52 
CRVSOFFICSPACE SICRVSON] CBLKI 
CMED.GRAY] LRVSOFF1" 

PRINT TAB: 9) "CRVSON] CBLKI 
CMED.GRAYICSPACE 151LRVSOFF i1" 

PRINT ТАВ( 9)"LRVSDNJESPACE 173 


CRVSOFF 1" 


PRINT ТАВ( 9) "CRVSONICSPACE 10] 
ІВІК2 CMED.GRAYICSPACE 21LBLK3J 
CMED.GRAYICSPACE SICRVSOFFI" 

PRINT TAB( 9) "CRVSONICSPACE 173 
CRVSOFFI" ` 

PRINT ТАВ( 8) "CRVSONICBLUI 
CMED.GRAYICSPACE 21 CWHITEICSPACE 51 
CMED.GRAYICSPACE. 9JLBLUJ 

СМЕР. GRAYICRVSOFF 1" | 

PRINT TAB: 7) "CRVSONICBLUICSPACE 21 
CMED.GRAYICSPACE 21CtWHITEJLSPACE 61 
CMED.GRAYICSPACE 91LBLUJIESPACE 21 
CRVSOFF 1" 


PRINT ТАВ( 6) "CRVSONICBLUILSPACE 31 


CMED.GRAYICSPACE 2ICWHITEICSPACE 61 
CMED.GRAYICSPACE @ICBLUICSPACE 51 
CRVSOFF 1" 

PRINT TAB ¢ 7) "CRVSONICBLUICSPACE 51 
[MED.GRAYJfLSPACE SIcCBLUICSPACE 111 
" 

FRINT тав ‹ 8) "CRVSONICBLUICSPACE 51 
МЕР. GRAYIFCSPACE SIcLBLUILSPACE 81 


MORE > 
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Spatial Concepts 
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390 


600 


610 


620 


650 


640 
650 


640 
670 


680 
490 


700 


710 
720 
730 


740 
750 


760 


770 


780 


790 
800 


PRINT ТАБ( 20) "CRVSONICSPACE 51 
CRVSOFF I": PRINT : PRINT 

PRINT "CBLKICRIGHT SIBIRDCSPACE 21 
CHILDCSPACE 2IDOGCSPACE 219TAR 
[SPACE 21ERASELHOME 1" 

PRINT L#(1)53 "CRVSONICBLKIIN 
CRVSOFFI"s PRINT L#(2) ; "CRVSONI 
DOWNCHOME 1" 

PRINT L#(3) 3 "ERVSONJUPLRVSOFF I" 

s PRINT L$(4); "“CRVSONILEFT 
CRVSOFF I": PRINT L$(5)5"CRVSON] 
RIGHTCRVSOFF 1" 

PRINT "LHOMEJCBLK 1"; 

s INPUT "PAINT WITH";P$ 

PRINT "LHOMEJLSPACE 201" 

FOR Х=1 TO 5: IF P£$zT$(X) THEN 
&70 

NEXT X: GOTO 630 

PRINT "ІНПМЕ1";: INPUT "PAINT 
WHERE" s WS 

PRINT "LHOMEJLSPACE 281 " 

FOR Х=1 TO 5: IF W#=W#(X) THEN 
710 ` 

NEXT X: GOTO 670 

С$=" СИНТТЕ?" 

IF W$-"DQWN" THEN C$="C(GRNI" | 
PRINT L$(X) 5C#; "ERVGQNIESPACE 51" 
s PRINT L$(X)3 s"CDOWNICRVSON] 
[SPACE 51": PRINT L$OO;"LDOWN 21 
CRVSONICSPACE S1ILHOMEJ" 
C$="(RVSONICGRNI": IF UW$«»"DOWN" 
THEN C#="CBLKI" 

IF P$z"STAR" THEN PRINT L£$(X);" 
CDOWNICRIGHTICBLKI#" 

IF P$z"CHILD" THEN PRINT 1$(Х); 
C$3"CRIGHTIW":s PRINT L$(X05;C$;" 
CDOWNINIM":s PRINT L$OO;C$;" 
CDOWN 27CRIGHTIH" 

IF P$z"BIRD" THEN PRINT L$(X); се; 
"9% PRINT L$(X); C$; " EDDWN 15" 
s PRINT L$(X); C$; "CDOWN 21 )" 

IF P$z"DOG" THEN PRINT L#(X)3C#; " 
CDOWN] Q N": PRINT L$ O0; C$; " 
[DOWN 21 luh" 

IF P£x"ERASE" THEN PRINT ТІРІГЕ 
CRVSONICBLKICDOWNI"s; и (X) 

GOTO 630 | 


Mind Reader 


" | 
Mind Reader 
Here's a fun guessing game in which you and the computer take turns guessing numbers. The 
program begins with an animated man (you can see his lips move) asking for the user's name. The 


name is used throughout the game. 


The user has five chances to guess a number between 1 and 20. The computer man helps by 
giving higher and lower clues. The user then chooses either to think of a number or let the 
computer man think of a number. The user enters a number between 1 and 5, and the computer 
man has one chance to guess the number. After this process is repeated five times, the computer 


man reports the score. 
100 
110 
120 
130 
| 140 
Alteration — Changing the value of TL in line 150 
150 changes the speaking rate of the animated 
man. Decreasing TL increases speed. 140 
170 


REM MIND READER 

DIM W#(81) ,G$(5) 

FOR X=0 TO 81: READ W$(X): NEXT 
FOR X=1 ТО 5: READ 6%(Х): NEXT 
L$="CHOMEICDOWN 1131CRIGHT 121" — 
B£-"LSPACE 91": TL=250 E 
: POKE 53281,1 

Mis="CHOMEICDOWN 111 CRVSONIk 
CRVSOFFICSPACE 2ICRVSONIdiiif 
CRVSOFF] k":M2$=" cf соосу k" 
M3$="CHOMEILDOWN 111 CRVSONIk 
CRVSOFFICSPACE 27(BLKICRVSONI 
[SPACE SICRVSOFF] k":MA£-" cf 


MORE > 
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Mind Reader 


Alteration — By changing M in line 320 to 

M-INT(RND (7) ж 10)+1, you make the 
computer think of a number between 1 and 10, 
instead of 1 and 20. 


180 


190 


200 


210 


260 


PRINT "CCLRICBLKI" 
PRINT "LSPACE 31LRVSONIvESPACE 41 
"s PRINT "CSPACE 21tRVSON1k 
[SPACE 21diFRVSüFFlvb" 
: PRINT " dLRVSONJiLRVSOFFlvi 
[SPACE 21i b" 
PRINT " CRVSONIKCRVSOFFI] c vc 
v К": PRINT "dLRVSONJiLRVSOFF1 
dO RVSON]i CRVSOFF 1fdLRVSON1li 
CRVSOFFI£ k" 
PRINT "cCRVSONIbCRVSOFF1] cCRVSON] 
vCRVSOFF Jvc LRVSON]VCRVSOFF Jv 
"k": PRINT " cfCSPACE &61LRVSONJk" 
: PRINT "CSPACE 21kLSPACE 31b 
CSPACE 21tRVSONJk" 
PRINT " CRVSONIKERVSOFFICSPACE 41 
dv cf": PRINT " CRVSONIKCRVSOFFI 
[SPACE 81k" 
PRINT " CRVSONIKCRVSOFFICSPACE 21 
CRVSONI]diiifCRVSOFFI] К" 
: PRINT " cf соосу k" _ 
: PRINT "CSPACE 2IKCSPACE 6ldv 
PRINT "CSPACE 2lcbiiiiiv" 
: PRINT "CSPACE 51675031 " 
PRINT "CSPACE 41CREDI]+++++" 
: PRINT "CSPACE 41 CBLKIKCREDI+++ 
CBLKILCRVSONIk": PRINT "CSPACE 41 
CRVSONIcCREDI+++CBLK]v" 
PRINT "CSPACE SICCYNICRVSONI 
[SPACE 31": PRINT "CSPACE 51 
CRVSON] CRVSOFF] CRVSON] " 
s PRINT "CSPACE 4JEBLKIERVSON1 | 
[SPACE 21CRVSOFF] CRVSONICSPACE 21 


А=0: В=5: GOSUB 580 

PRINT 1%; "СВОИМ 331"s: INPUT N$ 

s PRINT L¢;"CDOWN 31";"LSPACE 101 
" 

FOR T=1 ТО 2222: NEXT 

A=4:B=39: GOSUB 580 

FOR T=1 TO 2222: NEXT 

С=О: FOR Gs1 TO S:K=0 

:М= INT ( RND (8) #20) 41 


A=9:B=10: GOSUB 580: GOSUB 400 


sK=K+1 ` 

А=11:В=11: GOSUB 580 

PRINT L$;"CDQUN 31";: INPUT Q$ 
:М= VAL (0$) 

IF MON THEN A=40:B=40: GOSUB 580 
IF MXN THEN A=41:B=41: GOSUB 580 
FOR T=1 TO 500: NEXT 

s PRINT L$; CDOWN 314; "СБРАСЕ 51" 
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Mind Reader 


IF M-N THEN М%(48)- STR# (K):0-42 
:B-49: GOSUB 580:С=С+1: GOTO 450 
IF К<5 THEN 330 
ИФ (54) = STR$ (M):A=50:B=54 

: GOSUB 580 | 

FOR T=1 TO 1111: NEXT T 
NEXT G: FOR T=1 TO 1000: NEXT T 
0% (55) =М№: И (59) = STR$ (100#C/5) 
:А=55: В=60: GOSUB 580 

=61:В=61: GOSUB 580:A=27:B=39 

: GOSUB 580  — 

С-О: FOR 6=1 TO 5 

Wt (44) =G¢(G) 24262: B»67: GOSUB 580 
PRINT L$;"CDOWN 31";: INPUT 9$ 
Ме VAL (9$): IF М<1 OR N>S THEN 
PRINT L#;"CDOWN 31";"LSPACE 31" 

: BOTO 470 

Ме INT ( RND (8) #5) +1 

: FOR Т=1 TO 900: NEXT 

: PRINT L$;"CDOWN 31";"LSPACE 51" 
IF M=N THEN A=68:B=71: GOSUB 580 
:С=С+1: БОТО 520 

A=72:B=74: GOSUB 580 | 

FOR Т=1 TO 900: NEXT Т,6 

FOR Т=1 TO 1000: NEXT T:A=75:B=79 


 $W$(77)2 STR$ (C*20): БОБОВ 580 


FOR Т=1 TO 1000: NEXT Т:А=80: В=81 


о: GOSUB 580 


PRINT L$;"LDOWN 31";: INPUT N$ 

s PRINT L$;"LDOWN 31";"LSPACE 61" 
IF LEFTS (N$,1)-"Y" THEN 180 
PRINT “CCLRI": END 

FOR Х=А TO B: GOSUB 620 

: PRINT L¢;B¢: PRINT L$;W$ (X) 

: FOR T=1 TO TL: NEXT T 

GOSUB 630: РОК T=1 TO TL 

s NEXT T,X: PRINT 14; B$: RETURN 
GOSUB 620: PRINT L$;B$ ` 

s PRINT L$5G$(G)s FOR T=1 TO TL 
s NEXT T | 
GOSUB 630: FOR Т=1 TO TL: NEXT T 
: PRINT L$;B$: RETURN | 
РКІМТ M1$: PRINT М2%: RETURN 
PRINT M3$: PRINT M4$: RETURN 
рата HELLO,WHO,ARE, YOU?, YOL , ARE , 
ABOUT, TO, PLAY , GUESS , THE, NUMBER, 
рата FIRST,I,WILL,THINK,OF ,FIVE, 
NUMBERS , AND , YOU , WILL , TRY, TO, 
GUESS, THEM, 

DATA LATER, YOU,WILL,THINK ‚ОЕ, 
FIVE, NUMBERS, AND, I, WILL, TRY ТО, 
GUESS, THEMs 
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Mind Reader 


_ 98 


670 


680 


670 


700 


710 


DATA HIGHER,LOWER, THAT,IS,RIGHT!, 
ТТ, ТООК,УОЦ, „TRIES. 

DATA TOO,BAD,IT,WAS, , ,YOU,GOT, 
,PERCENT , CORRECT, NOW 

DATA ENTER, THE, ,NLUMBER,FRÜOM, 1 
—5. „МУ, GENIUS, OVERCOMES, ME. ,1,WAS, 

WRONG. - | | 

DATA  I,GO0T, ,PERCENT,CORRECT, 

PLAY,AGAIN Y/N 

DATA FIRST,SECOND, THIRD,FOURTH, 

FIFTH 


Poetry 


Poetry 


The program creates haiku, an ancient form of Japanese poetry. The traditional form calls for 
three lines of five, seven and five syllables. The poems usually refer to seasonal changes and moods. 
Therefore, the phrases selected randomly by the program contain related vocabulary. The program 


can write some very nice haiku. 


REM "POETRY". 
POKE 53281,1 | 
FOR Х=0 TO 9: READ F$(X): NEXT 
: FOR Х=0 TO 7: READ 5$(Х) 
: NEXT X | | 
FOR X=0 TO 7: READ Т+(Х): NEXT X 
PRINT "CCLRI": PRINT ТАВ‹ 17)" 
CRVSONICDK. GRAY JPOETRYCRVSOFF 1" 
: PRINT | 
PRINT : PRINT "HELLO HONORABLE 
USER.": PRINT 
PRINT "I АМ А JAPANESE HAIKU 
PROGRAM. ": PRINT 
PRINT "PRESS ANY KEY AND I WILL 
BE PLEASED TOLSPACE 2]WRITE 
А POEM FOR YOU." | 
PRINT : PRINT "HAIKU IS АМ 
ANCIENT FORM OF POETRY." 
PRINT "IT IS AN HONOR TO WRITE 
FOR YOU." | 
PRINT : PRINT "HIT ANY KEY TO 
START. " 


MORE » 


Poetry 


Alteration — Change the phrases used to build 
the haiku by changing the DATA statements in 
lines 300-390. Each new phrase should have 
the same number of syllables as the phrase it 
replaces. 


100 


210 
220 


GET 0%: IF G$z"" THEN 210 


A= INT ( RND (8) %10) 
:B- INT ( RND (8) #8) 
:С= INT ( RND (6) #8) 
PRINT “CCLRICDOWN 81" 


PRINT ТАВ( 20- LEN (Ғ%(А)2/29; 


Ғғ (A) 


‚ PRINT TAB: 20- LEN (8$(B))/2); 


5% (B) 
PRINT TAB( 20- LEN (T$(C))/2); 


_ T$(C) 


330 
340 


330 


360 


$70 


580 


590 


PRINT : PRINT : PRINT 
: PRINT "LSPACE 41НІТ CRVSONIR 


 tRVSOFF1 KEY TO RECEIVE А NEW 


POEM. " 

GET Q$: IF Q$="" THEN 280 

IF Q$-"R" THEN 220 

DATA THE GRAY MOUNTAINS HOST, 
TODAY I ЗАМ THE,SPLASHES IN 
THE РОМО 


DATA NOW CHERRY BLOSSOMS,DROPPING 


FROM BRANCHES,FRESHLY DRAWN 
CHALK LINES 

DATA WINTER HILLSIDES HOST, NOW 
REDFACED CHILDREN,A MOONLIT 
QUIET | 


DATA а GARDEN CHANGES , MOMENTARY 


FLASHES OF SQUIRREL GATHERING 
ACORNS ` 
DATA DISTURB THE REFLECTION 
OF SWIRL IN THE TWILIGHT 
COOLNESS 
DATA RED LEAVES PROVIDE RAKE 
FODDER,REFLECT IMAGINATION 
DATA THE LAUGHTER AND SNOWY 
PLAY, CATCH RAYS OF BROKEN | 
MOONLIGHT 
DATA THE SUMMER LIGHTNING, WINTER 
IS COMING,A MOONLIT GUIET,A 
GARDEN CHANGES | 
DATA FUEL FOR CHILDREN'S PLAY,OF 
SUMMER CHILDREN,OF REDFACED 
CHILDREN 
DATA SPLASHES IN THE POND 


| No Free Lunch | 


No Free Lunch 


Put on your thinking cap for this arithmetic game. You're out to lunch along the ocean and have 
to hop rocks across hazardous tidepools to reach your food. А correct answer to the arithmetic 
problem gets you to the next rock, closer to your lunch. With three correct answers in a row, you 
can eat. But watch out! A wrong answer gets you all wet. | 


100 
110 
120 
150 


140 


150 


REM МО FREE LUNCH | 

POKE 55281,14: POKE 53280,4 

PRINT “CCLRI“: FOR X=1 TO 17 ` 

s FRINT : NEXT X 

PRINT TAB( $4); "LRVGONTEBLK1 

LUNCH" | 

PRINT "CRVSONICLT.BLUICSPACE 21 
CDK.GRAYICSPACE 21CLT.BLUICSPACE 4] 
CDK.GRAY] CLT.BLUICSPACE 4] 
CDK.GRAYICSPACE SICLT.BLUICSPACE 41 
CDK.GRAYICSPACE 2ICLT.BLUICSPACE 41 
CDK.GRAYICSPACE 21CLT.BLUICSPACE 31 
CDK.GRAYVICSPACE S1CLT.BLUI "3 

PRINT "LRVSONJILBLUJ CDK.GRAY] 
[SPACE SICBLUICSPACE 3JILDK. GRAY 
[SPACE 21CBLUICSPACE SICDK.GRAY] 
CSPACE 4] 0BLUICSPACE S1ICDK.GRAY] 


 ESPACE SICBLUICSPACE SICDK.GRAY]I 


[SPACE SICBLUICSPACE SICDK.GRAYI. 
CSPACE 71LBLUJ"; 


MORE » 
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No Free Lunch 


Alteration — Alter the equations for А and B in 
lines 290 and 300 to change the range of 
numbers in the questions. For example, 
A=INT(RND(9) х 20)--1 will include 
numbers up to 20 in the problems. 


Alteration — Make the game more challenging 
by changing the equations into multiplication 
problems. Change the addition sign in lines 
340, 360 and 370 to the multiplication sign. 
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160 PRINT "LRVSONJLBLUJ CDK.GRAYI 


170 


[SPACE 4J1LBLUJLSPACE 21LDK. GRAY 1 
[SPACE 21CBLUICSPACE 41LDK. GRAY 3 
[SPACE SICBLUICSPACE 31LDK.GRAY1 
[SPACE SICBLUICSPACE 31CDK. GRAY] 
[SPACE 41CBLUICSPACE 21LDK. GRAY 1 
CSPACE 71CBLUI"; 
PRINT “CRVSONICDK.GRAYICSPACE 51 
[ВИЛ CDK.GRAYICSPACE 41CBLUI 
[SPACE 221LDK.GRAYJILSPACE 7ICBLUI 
CDK.GRAYILSPACE 4] 0CBLUICSPACE 21 
CDK.GRAYICSPACE SICBLUICSPACE 21 
CDK.GRAYICSPACE 7ICBLUI"; | 
PRINT "CRVSONICDK.GRAYICSPACE 401 


PRINT "CLT.BLUICSPACE 131fRVS0N] 
CBLKINO FREE LUNCHERVSOFF JE HOME 1" 

PRINT "CRIGHT SILYELJICRVSONJ 
[POUND] x" 

PRINT "CRIGHT SI1LYELIERVSONl 
[SPACE 31" 

PRINT "CRIGHT SICYELI#CRVSONI 
CRVSOFF JEPOUND 1" 

D$="CHOMEICDOWN 161" 

J$(1)="CRIGHT 21":d#(2)="CRIGHT 71 
“2 $ (3) =J$(2)+"CRIGHT 91" 

J$(4)2J$(3)+"CRIGHT 51" 

: 2$ (5) -J$ CA) A" ERIGHT 61" 

¢3$ (6) =J$(5)+"CRIGHT 51" 

U$(1)="CWHITE] O":U$(2)="NCRVSONI 
CRVSOFF 1M" :U$ (3) ="CRIGHTIH" 

E$ (1) =" LSPACE 23":Е$ (2) ="СВРАСЕ 31 
"ЕФ (3) =" [6РАСЕ 21" 

Ј=1 

A= ІМТ ( RND (8) 9) +1 

B= INT ( RND (9) #9) +1 

PRINT D$;: FOR Х=1 TO 3 

: PRINT J$(J);U$(X): NEXT X 

PRINT "CHOMEICDOWN &l1ERIGHT 61 
[SPACE 231" | 

PRINT "CRIGHT 61Г5РАСЕ 231" 

PRINT "CHOMEICDOWN &1tRIGHT &1HO0W 
MUCH IS"A"+"B; 

INPUT C 

IF А+В=С THEN 430 

PRINT "CRIGHT 6]SORRY, THE ANSWER 
IS"A+B ` 

PRINT D$;: FOR Х=1 TO 3 

: PRINT 3$(3) sE$ (X): NEXT X 

PRINT. 0$; "СООММ 21"; 

: FOR Х=1 TO 2: PRINT J$(J);" 
CRIGHT 21";0%(Х): NEXT X 


400 


410 
420 
450 
440 
450 


460 
470 


480 
490 


300 
310 


No Free Lunch 


80-54272: FOR 2-50 TO $0+24 

: POKE 2,0: NEXT Z: POKE 50+5,11 
: POKE $50+6,31: POKE S0424,15 
POKE 50%1,05: POKE 50,227 

: POKE S0+4,129 

PRINT “СНОМЕЗСООММ 9ICRIGHT 61 
SPLASH!'!": FOR T=1 TO 500 

: NEXT T: GOTO 490 

PRINT "CRIGHT &1CORRECT!" 

FOR Т=0 TO 999: NEXT Т 

PRINT D#;: FOR X=1 TO 3 

s PRINT J$(J);E$(X): NEXT X 
J=J+1: IF 3<6 THEN 290 

PRINT 0+;: FOR Х=1 ТО. 3 


о: PRINT J#(J)šsU#(X): NEXT X 


PRINT "CHOMEICDOWN SICRIGHT 612 
YUM! YUM! EAT WELL!!!" 

PRINT s PRINT "CRIGHT 4&1] TRY 
AGAIN";: INPUT Q$ | 

IF LEFTS (Q$,1)="Y¥" THEN 110 
END 
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| e 
Spelling Bee 
Here's an educational game of great versatility, providing entertainment and instruction. The 


program features a bee that moves across the screen, leaving behind it a scrambled word. The 
object is to unscramble the word and enter the correct spelling. 


100 REM SPELLING BEE 

110 W=10 

120 DIM W$(W),S8(20) 

130 POKE 53280,4: POKE 55281,14 
z PRINT "CCLRICBLKI": PRINT 

140 FRINT "WELCOME TO SPELLING BEE." 

150 PRINT =: PRINT “YOU WILL SEE 
THE BEE FLY ACROSS THE" 

160 PRINT "SCREEN, LEAVING LETTERS 
86 IT GOES." 

170 PRINT : PRINT "THESE LETTERS 
АКЕ THE LETTERS ОҒ ALSPACE 61 

| SCRAMBLED WORD." 

180 PRINT "YOU MUST UNSCRAMBLE THE 
WORD AND ENTER" 

190 PRINT "THE CORRECT SPELLING 
TO RECEIVE POINTS."s PRINT 

210 PRINT : PRINT "GOOD LUCK." 
$ PRINT 

220 B#(1)="C(SPACE SIVCSPACE 21NN" 

230 B$(2)z"LSPACE SI CRVSONICBLKI] 
CYEL] CBLK] CYELICRVSOFFICBLKIW" 

240 BS(3)="CSPACE SICRVSONICBLKI 
CYEL] LBLKJ CYELJ CELK] CYEL] 
CRVSOFF 1" 

250 B#(4)="CBLKICSPACE 21<CRVSONI 
CBLK] CYEL] ГВІК1 CYEL] LBLK] 
CYELICRVSOFF ICBLK I=" 

260 BF(5)="CBLKICSPACE 61;;" 

270 DS="CHOMEICDOWN 81" 

|. :P$z"[RIGHT 341" 

280 FOR Х=1 TO W: READ W#(X): NEXT 

290 PRINT : PRINT "HIT ANY KEY TO 
START, " 

500 GET 0%: IF @$="" THEN 300 

$10 T=0:S=0 


Aberatii CHange the number of words 320 FOR Х=1 TO 8 
presented by altering line 320. For example, = e £= 
FOR X=1 TO 10 will ask for 10 questions. 597 с A ld dL ыы. 
340 L= LEN (W$): FOR Yz1 TO L:S(Y)=0 
: NEXT Y 


550 FOR Yz1 TO LEN (W$) 

240 K= INT ( RND (3) #L)+1 
s IF S(K)=1 THEN 340 

570 S8$z8$- MIDS (М$,К,1):5(К) =] 
s NEXT Y 

580 IF S#*=W# THEN 240 


-————— ———————————————————————QÓOQOA—SXOBLXXXMMÓMMLLONLIIELE&-YvgRsÁciGÜáuooino6sSÓ^PÀXZ/27:"'|' £e ít 2 —————— 
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Spelling Bee 


Alteration — Change or expand the vocabulary 

to fit the user by adding more DATA 

statements after line 600. Change W in line 110 

to match the number of words in the 
program's vocabulary. 


PRINT "CCLRIWORD #"X" SCORE="S 
F=1: РОК Y=1 ТО 28 


: B$= LEFTS (Р%,Ү) 

IF LEN (В%) 217 AND F<L+1 THEN 
PRINT D$;B$;"LDOWN SJELEFT 21" 
MIDS (S#,F,1):F=F+1 


PRINT D$ | 

FOR 2-1 TO 5: PRINT В; В (7) 
: NEXT Z 

FOR Т=1 TO 49: NEXT T,Y 
PRINT Df; 


PRINT D$;"LDOUN 51" 

INPUT "ENTER CORRECT SPELLING";Cf 
z PRINT | 

IF C$zW$ THEN PRINT TABC 13)" 


CRVSONITHAT IS СОККЕСТ!":5=5+125 


s GOTO 510 

PRINT TAB ‹ 10) "ERVSONIWRONG, 
IT WAS "W$". 

FOR Т=1 ТО 1000: NEXT T 


FOR Т=1 TO 2000: NEXT T 


NEXT X 


PRINT "CCLRI": PRINT 


IF 82900 THEN PRINT "YOU WIN 
THE SPELLING ВЕЕ!": GOTO 580 _ 
IF 682800 THEN PRINT "VERY WELL 
РОМЕ. ": GOTO 580 | 

IF 5>700 THEN PRINT "NOT BAD." 
: GOTO 580 

PRINT "YOU NEED PRACTICE." 
PRINT s INPUT "PLAY AGAIN"; 0% 
IF LEFT? (0$,1)z"Y" THEN 290 
DATA  THAT,THEIR,HQUSE,BOAT, 
PEACE, DRAGON, ORANGE, GAME ,LOVE, 


HOPE 
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Speed Reading 


A fundamental principle of speed reading is that we retain more if we read words in phrases, 
rather than one at a time. This program helps develop that skill. It flashes phrases quickly then tests 
retention of the information with true/false questions. 

Two players are needed. When prompted by the computer, player 1 types in five statements and 
five related true/false questions along with the answer. Then player 2 decides on the time duration 
he'll see each phrase. Time can be as short as .02 seconds. After the phrases are flashed, player 2 is 
tested with the questions. Score is based on correct answers and the time the player had to read 
questions. 

Then the players change roles and player 2 does the кектене test. 


Alteration — Change the game into an 100 REM SPEED READING 


arithmetic flashcard game. Enter math 110 0=5: DIM РҰ(2,0),0%(2,0),64% (2, о) 
problems and answers instead of sentences. 120 POKE 53281,6: PR I NT " r CLR ICWH I ТЕ?" 
2112 appropriate PRINT statements if you 150 PRINT ТАВ( 14) "CRVSON] SPEED 

о S. ' 


READING": PRINT 
140 PRINT "WELCOME TO THE GAME OF 
SPEED AND" 
150 PRINT "CONCENTRATI ON a": PRINT 
160 PRINT "YOU MUST BE ABLE TO GRASP 
WHOLE PHRASES IN A MOMENT." 
: PRINT 
170 PRINT "AFTER THE PHRASES ARE 
DISPLAYED, THERE" | 
180 PRINT "WILL BE QUESTIONS ABOUT 
THE CONTENT." 
190 PRINT "CORRECT ANSWERS UP YOUR 
SCORE. " 
200 PRINT "THE MORE DIFFICULT THE 
TIME FACTOR, THE MORE POINTS 
ARE EARNED." 
210 PRINT s PRINT "ONE PLAYER ENTERS 
FIVE PHRASES, FIVE" 
220 PRINT "QUESTIONS, AND THE FIVE 
| ANSWERS. " 
230 PRINT "THE SECOND PLAYER ENTERS 
. THE TIME" 
240 PRINT "FACTOR BY ENTERING THE 
NUMBER ОЕ" | 
250 PRINT "SECONDS FOR WHICH THE 
| PHRASES ARELSPACE 71DISPLAYED. " 
260 PRINT : PRINT "HIT ANY KEY FOR 
MORE INSTRUCTIONS." 
270 GET Q$: IF Q$z"" THEN 270 
280 PRINT "LCLRJALL FIVE PHRASES 
WILL BE SHOWN AND THEN" 
290 PRINT "ALL FIVE QUESTIONS WILL 
ВЕ ASKED.": PRINT 
$00 PRINT "THEN THE SECOND PLAYER 
WILL HAVE A TURN." 
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Speed Reading 


310 PRINT "ALL GUESTIONS WILL BE 
TRUE OR FALSE" 

520 PRINT "QUESTIONS. TRUE WILL BE 
INDICATED BY à" ` 

550 PRINT "Т AND FALSE WILL BE 
INDICATED BY AN F.": PRINT 

540 PRINT "HERE IS AN EXAMPLE: " 
: PRINT 

550 PRINT "CRVSONIPHRASE 
: (RVSOFF1] THIS IS А COMPUTER 

_ БАМЕ.": PRINT 

340 PRINT "CRVSONIQUESTION 
sCRVSOFF] T OR F": PRINT "THIS 
IS A CARD GAME.": PRINT 

370 PRINT "CRVSONIANSWER 

|. stRVSOFF1 F" 

380 PRINT : PRINT "HIT ANY KEY TO 


START. " 
Alteration — Change the game into a 390 GET 0%: IF Q¢="" THEN 390 
translation exercise. Use foreign and English 400 PRINT "CCLR1":P=1 
equivalents instead of sentences. Change ' š; Р ". 
appropriate PRINT statements if you do this. 410 E REN ONE'S МАМЕ"; М%51) 
420 INPUT "PLAYER TWO S МАМЕ"; М (2) 
: PRINT 


MORE > 
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Speed Reading 
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430 
440 


430 


460 


470 
480 


490 
300 


310 
520 


550 


540 


330 


560 


970 
580 
390 


600 


610 


PRINT "CCLRIBEGIN NOW "N£(P)"." 
FOR Х=1 TO Q: PRINT 

s PRINT "ENTER PHRASE #"Х 

PRINT : PRINT "PHRASES MAY NOT 
BE MORE THAN 1 LINE LONG(4O 
CHARACTERS) . " 

PRINT : INPUT P£(P,X) 

IF LEN (P#(P,X))>40 THEN 450 
PRINT : PRINT "ENTER QUESTION 
#"Х š 

PRINT : PRINT "QUESTIONS MAY 

МОТ BE MORE THAN 1 LINELSPACE 31 
LONG (40 CHARACTERS)." 

PRINT : INPUT G£(P,X) 

IF LEN (0$(Р,Х))>40 THEN 450 
PRINT : PRINT "ENTER ANSWER &"X 
PRINT : INPUT А$(Р,Х) 

IF AS(P,X)<>"T" AND AS(P,X)<>"F" 
THEN PRINT "ANSWER MUST BE T 

OR F.": GOTO 530 

PRINT "ECLR1": NEXT X 

К=1: IF Р=1 THEN К=2 

PRINT "ОК "N£(K)".": PRINT 

И (К) =0: 8 (К) =0 

PRINT "ENTER THE NUMBER ОҒ 
SECONDS EACH PHRASE" 

INPUT "WILL BE SHOWN";S 

: IF S»10 THEN PRINT "TOO LONG!" 
: GOTO 590 

FOR Х=1 TO Q: PRINT "CCLRICRVSONI 
PHRASE #"X: PRINT : PRINT : PRINT 
: PRINT : PRINT P#(P,X) 
TI$="000000" 

PRINT "CHOMEICRIGHT 141"TI¢ 

: IF TI<S*40 THEN 630 

PRINT "ІСІК1": FOR T=0 TO 999 

: NEXT T,X 

FOR Х=1 TO 5: PRINT "CCLRICRVSONI 
QUESTION #CRVSOFFI1"X: PRINT 


“PRINT : PRINT Q$(P,X): PRINT 


INPUT "YOUR ANSWER": A$ 

sAS= LEFT (А%,1) 

IF A$«»"T" AND А%<>"Е" THEN PRINT 
"THESE ARE T OR Е QUESTIONS. " 

s GOTO 670 

IF AS=AS(P,X) THEN 5(К)=8(К)+700-5 
s PRINT "LRVSQNICORRECT": GOTO 720 
WORD =W (K)+1: PRINT "ERVSONJ 
INCORRECT": PRINT P£$(P,X) 

PRINT : PRINT : FOR Т=1 TO 1000 

s NEXT Т | 

FOR TzO ТО 999: NEXT Т,Х 

IF P=1 THEN P=2: GOTO 430 

PRINT "CCLRI": PRINT 


750 


760 
770 


780 


790 


Speed Reading 


PRINT N$(1)" SCORE | 

: "9 (1) ,S5-NCI) "CORRECT" 

PRINT : PRINT 

PRINT N#(2)" SCORE 

:"5 (2) ,5-W(2) "CORRECT" | 

IF 5(1)>8 (2) ТНЕМ PRINT М C15" 
WINS!" | 
IF S(2)>S¢1) THEN PRINT NS C2)" 
WINS!" 
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Pre-School Counter 


Pre-School Counter 


Here's a useful educational game that helps young children learn counting up to 10. It's also 
good for introducing a computer to the child. It's easy to run and play. 

The computer greets the player and then asks him to count the squares displayed. The user 
answers by entering a number. The computer then responds. If the answer is correct, the user is 
rewarded with a smiling face drawn by the computer. If the answer is incorrect, the face's smile 
becomes a frown. The correct answer is then displayed. 

After 10 exercises, the computer gives the user both a raw and a percentage score. 


Alteration — Improve on the smiling face by 
adding eyebrows, hair, ears, etc. Use PRINT 
Statements between lines 150 and 260. 


Alteration —Change Q in lines 270 to alter the 
number of questions the user gets. For 
example, C20: FOR Q=1 ТО 5 gives the 
user 5 tries. 


100 
110 


120 


130 


140 
150 


160 
170 
180 
190 


200 
210 
220 
250 
240 
250 
260 
270 
280 


290 
$00 


$10 
320 


$30 


REM  PRE-SCHOOL COUNTER 
PRINT "CCLRICWHITEI": PRINT 
s PRINT 


AS="THOMEICDOWN 101" 


: B$=A$+"CDOWN 61":D$-A$*"LRIGHT 171 

Mi$="CRVSONIdiiifCRVSOFF1" | 

: M2$=" [DOWN Icoaoov" 

M3$="CRVSONICSPACE SICRVSOFFI" 

:M4$=" (DOWNICRVSONIiiiii CRVSOFFI" 

MSs="diiif":M6$="C(DOWNICCSPACE 31 

y" 

PRINT TAB( 17)"f u +" 

PRINT TAB( 15)"dESPACE 71+" 

PRINT TAB( 14)"dCSPACE 91f" 

PRINT ТАВ( 14) "ҒСЗРАСЕ 220СЗРАСЕ 31 

ОГБРАСЕ 21d" 

PRINT ТАВ( 15) "аСЅРАСЕ 111+" 

PRINT TAB( 13) "аГ5РАСЕ 111+" 

PRINT TAB: 13)"dLSPACE 111f" 

PRINT TAB( 14) "ЖГЕРАСЕ 91d" 

PRINT TAB( 14)"dLSPACE 91f" 

PRINT ТАВ( 15)"dCSPACE 72+" 

PRINT TAB( 17)"v i c" 

С=О: FOR 0-і TO 10 — 

FOR Х=1 TO 3: GOSUB 480: READ T$ 

: PRINT A$;"LSPACE 21";T$ 

: FOR Т=1 TO 700: NEXT Т 

GOSUB 490: PRINT A$;"CSPACE 121" 

: FOR T=1 ТО 400: NEXT T: NEXT X 

PRINT В$;:50= INT ( АМО (8)#10)+1 

: FÜR Y=1 TO SQ: PRINT " CRVSON] 
CRVSOFF1"s: NEXT Y — 

PRINT : PRINT : INPUT "CSPACE 31 

"36: IF А<>50 THEN 330 — 

С=С+1: PRINT А; " CRVSONICORRECT 

CRVSOFF1": GOSUB 480 

: FOR T=1 TO 2000: NEXT T 

: GOTO 350 

PRINT 4$;" CRVSONJINCORRECT 

CRVSOFF1": GOSUB 480 

: FOR T=1 TO 1000: NEXT T 

: GOSUB 500 


—I II A Una mmm S UTS Š  szsI T III eCŠI€£IZISəIGII M YY CV X=GOI I TS K YP YF A == 
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340 
350 
360 
370 
380 
590 
| 400 


410 
420 


430 
440 


450 
460 


470 
480 


490 
500 
510 
920 


Pre-School Counter 


PRINT А%" THE ANSWER" 

e PRINT " IS "SQ: FOR T=1 TO 5500 
s NEXT T 

GOSUB 490: PRINT 6$;"LSPACE 131" 
PRINT A$;"LDOWNJILSPACE 121" 


$ PRINT B$"LSPACE 201" 


PRINT B¢"CDOWN 21С8РАСЕ 151" 

FOR Т=1 TO 1000: NEXT T: RESTORE 
NEXT @ 

PRINT 8%;" OUT OF TEN" 

: FOR Т=1 TO 700: NEXT T 

GOSUB 490: FOR Т=1 TO 400: NEXT T 
PRINT A$;"CDOWN1 TRIES, YOU" 

: FOR Т=1 TO 700: NEXT T 

GOSUB 490: FOR T-1 TO 400: NEXT T 
PRINT A$;"LDOWN 21 GOT "C" | 
RIGHT.": FOR Т=1 ТО 700: NEXT T 
GOSUB 490: FOR Т=1 TO 400: NEXT T 
PRINT B$: INPUT "PLAY AGAIN";GO$ 0 
: IF LEFT$ (0%,1) ="Ү" THEN 100 
END | | 

PRINT D$;M1$: PRINT D$;M2$ 

: RETURN 

PRINT D$;M3$: PRINT 0%;М4% 

: RETURN 

PRINT 0%;М5%: PRINT 0$;М6$ 

: RETURN | 

PRINT D$;M3$: PRINT 04;М4% _ 

: RETURN Е 

DATA HOW,MANY,SQUARES? 


Keyboard Shooting Gallery 


Keyboard Shooting Gallery 


This game improves keyboard skills. You're at a carnival shooting gallery containing four animal 
targets. In each target a letter appears for a short time. You score points by typing letters displayed 


in the animals. 


The game has three levels of difficulty, so as you become a better typist, you can make the game 
more challenging. At the expert level, **hunt-and-peck"' typists will have trouble scoring well. 


| 100 

Alteration — The game can also include 110 
number keys, commas, periods, etc. if you 120 
change lines 110, 120 and 430 as follows: 

110 DIM А%(55) 

120 FOR X=0 TO 55: 150 

A$(X)=CHRS(X+35):NEXT 140 

430 FOR Y=1 TO 4: 

L$(Y)=AS(INT(RND(8) * 56)): | 150 

PRINT K$(Y); L$(Y): F(Y)-0: NEXT 


160 
176 
180 
190 
200 


210 
220 


250 
240 


290 
260 


270 


280 
290 
500 
510 


520 


REM KEYBOARD SHOOT I NG GALLERY 
DIM A#(25) ` 


FOR X=0 TO 25: A#(X)= CHR$ (X468) 


s NEXT X 
PRINT "[CLRJEWHITE1" 
PRINT “WELCOME TO CRVSONIKEYBOARD 
CARNIVALCRVSOFF 1. " 
PRINT "LETTERS WILL APPEAR AT 
EACH ANIMAL." 
PRINT "YOU WILL HAVE А SHORT 
TIME TO ENTER" 
PRINT "THE SAME LETTERS." 
PRINT : PRINT "SIMPLY TOUCH 

THE CORRECT LETTERS TO GET 
POINTS." 
PRINT "ENTER 1,2 OR 3;" 
PRINT "1) EASYCSPACE 212) HARD 
ГӘРАСЕ 213) EXPERT" | 
INPUT L: IF L1 OR L>3 THEN 190 
PRINT : PRINT "HIT ANY KEY TO 
START" | 
СЕТ Q$: IF Q#="" THEN 250 
PRINT “ГСІК1" TAB 12); "CRVSON]J 
SCORE: CRVSOFFI": PRINT : PRINT 
PRINT "LSPACE 61LBLKIbBLSPACE 21N 
ERVSONIcCERVSOFFILSPACE 101L GRN1 
11" | 
PRINT "CSPACE 7ICBLKICRVSON1 

i CRVSOFFICSPACE 1LOJCGRNICRVSON] 
vCSPACE 21са" 
PRINT "CSPACE 71EBLK1k КІЅРАСЕ 101 
LGRNILRVSONTvERVSUFF 1LSPACE 21 


 CRVSONIc" 


PRINT "ESPACE 71CWHITEICRVSONIDOG 
CRVSOFFICSPACE 91 LRVSONITURTLE" 
PRINT s PRINT : PRINT : PRINT 

: PRINT 

PRINT TAB( 9) "СИНІТЕЈИСВЕМІі 4 
CWHITEIWCSPACE 127CYELICRVSONIvc" 
PRINT TAB( 9)" CBRNICRVSON].. 
C[RVSOFFICSPACE 1110YELICRVSONIcv 
[RVSOFF]. >" | 

PRINT TAB( 9) "CBRNICRVSONIdc 
£tRVSOFFIJESPACE 101CYELICRVSONI 
CSPACE 31d" ` 
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530 


540 
350 


| 340 


3570 


° Keyboard Shooting Gallery 


PRINT TAB; 9)" CBRNICRVSON] 
CSPACE 21tRVSDFFI1LSPACE 111LYEL1 
CRVSONICSPACE 210RVSOFFIvk" 
PRINT TAB( 9) "CBRNICCRVSONIii 


_CRVSOFF 1v" 


PRINT TAB: 9) "CWHITEICRVSONIBEAR 
CRVSOFFICSPACE 91LRVSONJRODSTER" 
K$(1)="CHOMEICDOWN 4] CRIGHT 111" 
sK$(2)=K$(1)+"CRIGHT 141" 

Kf (3) =K$(1)4+"CDOWN LOICRIGHT 21" 
:К (4) =K#(2)+"CDOWN 101ERIGHT 31" 
IF L=1 THEN T=20 

IF L=2 THEN T=10 

IF L-3 THEN Т=5 

Х=0 

1=0 

РОК \=1 ТО 4: $ (У) =А$ ¢ INT ( RND 
(8B)*26)): PRINT К$ (У) ; ($ (У) 

: 2 (У) =О: NEXT Y 

1=0:С=0 mE 

GET Q$: IF Q¢="" THEN 450 

FOR \=1 TO 4: IF G$-L$£(Y) AND 
F(Y)=O THEN S=5+10:C=C+1:F (Y)=1 
PRINT “ІНОМЕ1"; ТАВ( 19);5 

s IF C=4 THEN Т=Т:У=4 


| NEXT Y 
 I=I+1: IF ICT THEN 450 


Х=Х+1: IF Х<а THEN 430 

PRINT "CCLRI" 

PRINT ТАВ( 15)" CRVSONIGAME шы. ч 
s PRINT : PRINT 

PRINT ТАВ( 16)"LRVGON1YQOU WIN. " 
PRINT : PRINT 

PRINT TAB. 15) "CRVSONIFINAL 
SCORE: LRVGUFF 1"S 
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Translator 


Translator 
This program is an educational quiz. As is, the program is set up to act as a Spanish-language 
translator. The user picks the number of questions to be asked. An English word is shown and the 


user is asked to type in the Spanish equivalent. 


Correct and incorrect answers are indicated. When the answer is incorrect, the correct word is 
displayed. When all questions have been asked, the computer displays the user's score. 


100 
110 
120 


150 
140 


150 


160 


REM TRANSLATOR 
DIM E#(10) ,0%(10) 


FOR X=1 TO 10: READ ES (X) ,OF(X) 


: NEXT X 

PRINT "CCLRI" | 
PRINT "WELCOME TO THE CYBERNETIC 
SCHOOL OFCSPACE SICOMPUTERIZED 
LANGUAGE. " 

PRINT : PRINT "I AM AMANDA, 

А SPELLING AND TRANSLATORLSPACE 21 
PROGRAM. " 

PRINT : PRINT "I WILL ASSIST 

YOU IN LEARNING SPANISHISPACE 31 


TODAY."s PRINT 


PRINT : INPUT "WHAT IS YOUR 
МАМЕ"; М: PRINT "CCLRI" 
PRINT "ALL RIGHT ";N$;",": PRINT 
PRINT "WE SHALL BEGIN BY 
DISCUSSING THE RULES.": PRINT 
PRINT "1) WHENEVER YOU ARE ASKED 
FOR AN ANSWERISPACE 42ТҮРЕ 

ONE IN.": PRINT ` 
PRINT "2) WHENEVER YOU TYPE 

A RESPONSE, You" 
PRINT "CSPACE 31MUST ENTER IT 

BY PRESSING CRVSONIRETURN 
CRVSOFF1.": PRINT 
PRINT "3) I WILL TELL YOU TO 
GIVE THE CORRECTCSPACE SISPANISH 
FOR A WORD. TYPE" 
PRINT "CSPACE 311М YOUR ANSWER 
AND PRESS CRVSONIRETURNCRVSOFF 1 
.": PRINT 
PRINT "CSPACE 3IWHEN THE GAME 

IS OVER I WILL TELL" | 
PRINT "CSPACE 3JHOW WELL YOU 

DID OVERALL.": PRINT : PRINT 
INPUT "HOW MANY QUESTIONS SHALL 
I ASK YOU";O 
бео: FOR С=1 TO Q: PRINT "CCLRI" 
: PRINT "QUESTION #"С | | 
X= INT ( RND (8)#10)+1 


1 PRINT "GIVE THE CORRECT SPANISH 


FOR: "ES$(X) 
PRINT š INPUT A$ 


В ЖЖ SoS SSS SSS SS SSS SSS is £ 
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Translator 


Alteration — Enlarge the computer's 
vocabulary by adding more DATA statements 
after line 420. Each English word must be 
followed by a comma and its foreign | 
translation. You will also need to change lines 
110 and 120 to accommodate the larger list. 
For example, if you have 50 words, change the 
DIM statements in line 110 to DIM Е%(50), 
0%(50). Change the maximum value of X in 
line 120 to that same number of words: FOR 
=1 TO 50. It is possible to add several 
thousand words to a Commodore 64. 


Alteration — Change the Spanish to any other 
language using the Roman alphabet. Change 
the vocabulary in lines 410-420. 


3510 
320 
$30 
540 
550 
360 
370 
380 
590 
400 
410 
420 


RES M) 


ASKS, “ WHATS 
ore! FoR DINNER, 
қ : 7, 


PIDE EM 
PAZ STER 


К M NNa 
-. 


- < ^e 
. KJ 

D “ap MD 
€ v. ть 


(“ғ 

LU 4 
X 

КУ 


e 2 


D „э 
va 


a 9. 
Ж 
do es 
7С 


|: 


IF А+$=0$(Х) THEN S=S+1 

s PRINT "CORRECT": GOTO 330 

PRINT "INCORRECT. THEN CORRECT 
TRANSLATION IS: CSPACE 21"O$(X) 

PRINT z PRINT "PRESS CRVSON] 

RETURNERVSOFF3 FOR NEXT 

QUESTION." 

СЕТ 0%: IF Q¢="" 

NEXT C 

PRINT "LCLR1"N£$"," | 

s PRINT " QUT OF "Q"“QUESTIONS 
YOU HAD"S"RIGHT:" 

PRINT INT (S*100/04.95)"PERCENT." 
s PRINT 

INPUT "WOULD YOU LIKE TO PLAY 
AGAIN"; Q$ 

IF LEFTS (Qf$,1)z"Y" THEN PRINT " 
ГСІК1": GOTO 270 | 

PRINT z PRINT "THANKS FOR 
PLAYING!" | 


THEN 340 


DATA TO DO,HACER,TO TALK,HABLAR, 


TO PUT,PONER,TO EAT,COMER 

DATA DOOR , PUERTA , MOUTH, ВОСА, СОИ, 
VACA, FORK, TENEDOR , SPOON, CUCHARA, 
FEACE,PAZ 


хаел 


HIS EXCELLENCY 


BUE 2 ft 
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Key-Combination Table 


UNDERSTANDING PROGRAM PRINTOUTS 


The program lines in this book are actual computer printouts of the working games. To 
make the lines easier for you to copy, a special notation system is used for graphics 
characters, color and cursor keys. | 

An underlined, upper-case letter means that you should hold down the SHIFT key 
while entering that letter. For example, if you see Z, shift while entering Z. A diamond will 

| appear on the screen. An underlined, lower-case letter indicates that you should hold 
down the Commodore key (с) while entering that letter. 

Some keys (+, -, £, @, *) will be underlined twice if the Commodore key (C) is to be 
held down; underlined once if the SHIFT key is to be held down. — 

.. When you see a word in brackets, it indicates using special control keys. For example, 
[DOWN] means press the cursor-up/down key. [DOWN 7] means press the cursor- 
up/down key seven times. The only exception is with spaces. A single space looks that 
way in the program line. If two or more spaces are required, an expression will be in 

| brackets, such as [SPACE 2]. 

The table on the next page lists some more key combinations. For example, if the pro- 

gram shows [WHT] press the CTRL and WHT keys at the same time. 
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Key-Combination Table . 


KEY-COMBINATION TABLE 


Listing Press Key(s) 

[ОР] SHIFT-CURSOR UP/DOWN 
[DOWN] CURSOR UP/DOWN 
[LEFT] SHIFT-CURSOR 

LEFT/RIGHT 
[RIGHT] CURSOR LEFT/RIGHT 
[HOME] CLR HOME 
[CLR] SHIFT-CLR HOME 
[RVSON] CTRL-RVS ON 
[RVSOFF] CTRL-RVS OFF 
[BLK] CTRL-BLK 
[WHT] CTRL-WHT 
[RED] CTRL-RED 
[CYN] CTRL-CYN 
[PUR] CTRL-PUR 
[GRN] CTRL-GRN 
[BLU] CTRL-BLU 
[YEL] CTRL-YEL 
[ORN] G1 
[BRN] =2 
[LT. RED] 53 


[DARK GRAY] G4 
[MED. GRAY] €5 


[LT. GRN] z6 
[LT. BLU] 57 
[LT. GRAY] =8 
[F-1] f1 
[F-2] _ f2 
[F-3] f3 
[F-4] | f4 
[F-5] f5 
[F-6] 16 
[F-7] _ {7 
[F-8] {8 


[POUND] £ 
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